









Little Brothers should 
be seen but not heard. 


RS-232C interface, the HR-5 is compatible with BBC, 
Spectrum, Oric, Dragon, Atari and most other home 
computers and popular software. 

Perfectly portable, the batteiy or mains operated 
HR-5 weighs less than 4 lbs, and has a starting price 
of only £159.95 (inc. VAT). 

Which is really something to shout about 


AVAILABLE FROM: BOOTS. RYMANS, WILDINGS. SELFRIDGES AND ALL 
GOOD COMPUTER EQUIPMENT STOCKISTS. 


brotherW 


A maxim which eloquently describes the Brother 
HR-5. 

Less than a footacross, it’s nonetheless loaded with 
features. 

T he little printer that’s low on decibels. 

There’s one thing the HR-5 won’t give you. 

Earache 

For the annoying ‘clickcty clack 5 many printers 
produce is mercifully absent from the HR-5. 

Quietly efficient, it delivers high definition 
dot matrix text over 80 columns at 30 characters per 
second (maximum). 

Text or gra phics with ease. 

The HR-5 also has something of an artistic bent 

Being capable of producing uni-directional 
graphics and chart images together with bi-directional 
text What’s more it will hone down characters into 
a condensed face, or extend them for added emphasis. 

At home with home computers. 

Incorporating either a Centronics parallel or 
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Instructions for graphics characters are printed in lower-case letters in our listings. They are enclosed by brackets and separated by colons to distinguish 
them and the brackets and colons should not be entered. 

Inverse characters are represented by the letter “i” and graphics characters by “g”. Thus an inverse W would be represented by “iw”, a graphics W by 
“gw”, and an inverse graphics W by “igw”. 

Spaces are represented by “sp” and inverse spaces by “isp". Whenever any character is to be used.more than once, the number of times it is to be used is 
shown before it, together with a multiplication sign. Thus “6*isp” means six inverse spaces and “(g4:4*i4:g3)” would be entered as a graphic four, followed 
by an inverse four repeated four times, followed by a graphics three. 

Where whole words are to be written in inverse letters they appear in the listings as lower-case letters. Letters to be entered in graphics mode on the 
Spectrum are underlined. 

Inverse characters may be entered on the ZX-81 by changing to graphics mode and then typing the appropriate characters and on the Spectrum by 
changing to inverse video and typing the appropriate letters. Graphics characters may be entered on the ZX-81 by changing to graphics mode and then 
pressing symbol shift while the appropriate characters arc entered. On the Spectrum graphics characters may be obtained by changing to graphics mode and 
then pressing the appropriate character. User-defined graphics will appear as normal letters until the program has been RUN. 
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( Pncr 

(printout 


FOR LOVE 


E SCAPE FROM the mansion 
with a ruby and gold bar to prove 
your worthiness to the father of 
the woman you love. There is a time 
limit by which you have to eat the fruit 
of life and this is approximately forty 
minutes. 

For Love was written for the 48K 
Spectrum by Mark Chapman, of Brack- 
nell, Berks. 

10 LET LL1FE=1: LET LIFE=2000: 
BORDER 6: PAPER 7s INK 0: BO SU 
B 1000: POKE 23658,8: DIM R<2>: 
DIM 0(30): DIM C<5): DIM D(10,2) 


30 LET L=0: LET EN-O: LET N-0: 
LET E=0: LET S=*0: LET W-0: LET 
U=0: LET D=0: GO SUB (R(l)*10>+1 
000: LET H=0 

40 FOR F=1 TO 30: IF 0(F)«R(1) 
THEN GO TO 60 
30 NEXT F: GO TO 90 
60 IF H=0 THEN PRINT INK 1;' 
"YOU ALSO SEE:" 

70 LET H=1: RESTORE 9040 
80 FOR G=1 TO F: READ C*: NEXT 
G: PRINT C*: GO TO 50 
90 LET T=1: PRINT AT 18,0j n 3- 
": LET A*="" 

94 IF LLIFE=0 THEN GO TO 100 

95 IF FN AO >LIFE THEN GO TO 
9930 

100 FOR G=1 TO 100: LET B*= INK 
EY* : IF Bt <> ““ THEN GO TO 11 
0 

103 NEXT G: GO TO 94 

110 BEEP .01,10: IF CODE B*=12 

THEN GO TO 160 

120 IF CODE B*=13 AND A* <> ““ 
THEN GO TO 200 
130 IF CODE B*-13 THEN GO TO 
100 

133 IF LEN A*>29 THEN GO TO 1 
OO 

140 LET A*=A*+B»: PRINT AT 18, 
T;B»j 

145 IF INKEY* <> "" THEN GO 
TO 145 

150 LET T*T+1: GO TO 100 
160 IF A*-"“ THEN GO TO 100 
170 LET T-T-l: LET A*=A*( TO T- 


180 PRINT AT 18,T;" 

185 IF INKEY* <> THEN GO 
TO 180 

190 BO TO 100 

200 LET D*="”: LET FF=1: CLS : 
PRINT INK 1;A*: IF A*( LEN 

A*) <> THEN LET A*=A*+"." 

21Q RESTORE 9000: FOR F=FF TO 
LEN A* 

220 IF A*(F> =" " OR A*(F>="." T 
HEN GO TO 240 
230 NEXT F: GO TO 290 
240 IF A* (FF TO F-l >*»*'" THEN 0 
O TO 230 

250 LET B*=A*(FF TO F-l): FOR G 
-1 TO 40: READ C* 

260 IF C*=B* THEN GO TO 280 
270 NEXT G: LET FF-F+1: GO TO 2 
10 

280 RESTORE 9010: FOR H=1 TO G: 
READ C: NEXT H: LET D*=D*+ STR* 
C: LET FF-F+lr GO TO 210 
290 RESTORE 9020: FOR F*1 TO 37 
: READ C* 

300 IF C*=D* THEN GO TO 330 
310 NEXT F 

320 PRINT '"THERE IS NO SUCH CO 
MMAND. " : GO TO 90. 

330 GO TO (F*100)+3000 
1000 CLS : PRINT INK 2}" FOR 
THE LOVE OF A GIRL" 

1005 PRINT '" HELLO.YOU HAVE FAL 
LEN DEEPLY INLOVE WITH A RICH GI 
RL BUT AS YOUARE POOR,YOU HAVE B 
EEN SET A TASK TO PROVE YOUR 
LOVE." 

1006 PRINT " YOU MUST FIND A RUB 
Y AND A GOLDBAR AND THEN ESCAPE 


FROM THE MANSION OF DOOM.GOOD 
LUCK AND HAPPY ENDINGS." 

1007 PRINT .TO ELLEN BY MARK 

CHAPMAN®": PAUSE 1000: GO SUB 9 
930: CLS : RETURN 
1010 PRINT "• YOU ARE STANDING A 
T THE MANSIONDOOR.IT IS VERY BIG 
AND IT LOOKSHEAVY.FOUR LARGE ST 
EEL BOLTS HOLD THE DOOR FIRML 
Y SHUT.FACIN6N0RTH,AWAY FROM THE 
DOOR,IS A FLIGHT OF STAIRS.CO 
RRIDORS GO EAST AND WEST." 

1015 LET W=21: LET E=2: LET N-ll 
8: RETURN 

1020 PRINT '" YOU ARE IN A LONG 
EAST/WEST CORRIDOR.A DOUBLE D 
OOR IS IN THENORTH WALL." 

1024 IF D(1,2>=1 THEN GO SUB 30 


1025 LET E=4: LET W*l: IF D(l,2> 
=1 THEN LET EN=119 

1026 RETURN 

1030 PRINT '" YOU ARE AT THE NOR 
TH END OF A HALLWAY.A DOUBLE DO 
OR IS PROPPEDOPEN.EXITS ARE NORT 
H AND SOUTH." 

1034 IF D(2,2)=l THEN GO SUB 30 
00 

1035 LET N-19: LET S=119: RETURN 
1040 PRINT '" YOU ARE IN A LONG 
EAST/WEST CORRIDOR.A DOOR IS 
IN THE THE SOUTH WALL." 

1044 IF D(2,2)»l THEN GO SUB 30 
00 

1045 LET E-6: LET W-2: IF D(2,2> 
-1 THEN LET EN=3 

1046 RETURN 

1050 PRINT YOU ARE IN A CLOAK 
ROOM WITH A WASHROOM AND TOILET 
.A DOOR IS THE EXIT." 

1055 LET L=*4: RETURN 
1060 PRINT YOU ARE AT A JOINI 
J NG OF THE CORRIDORS.YOU CAN G 
0 WEST,SOUTH OR NORTH." 

1065 LET W=4: LET N=16: LET S=7: 
RETURN 

1070 PRINT YOU ARE AT A TURNI 
NG IN THE CORRIDOR.YOU CAN GO 

NORTH OR EAST." 

1073 LET E=122 

1074 IF D(3,2>*1 THEN LET EN=8 

1073 LET N-6: RETURN 
1080 PRINT '" YOU ARE STANDING I 
N A GUEST ROOM WHERE PARTIES 
WERE HELD. EXITS ARE WEST AND 
NORTH." 

1085 LET W=7: LET N=9: RETURN 

1090 PRINT '" YOU ARE IN AN OPEN 
BALLROOM. EXITS ARE NORTH AND 
SOUTH.“ 

1095 LET N=10: LET S=B: RETURN 

1100 PRINT '" YOU ARE IN A GALLE 
RY.PICTURES STILL HANG FROM THE 
WALLS.THE GALLERY IS VERY LON 
G AND THIN. EXITS ARE NORTH,WES 
T AND SOUTH." 

1103 LET N=12: LET W=U: LET S=9 
: RETURN 

1110 PRINT '" YOU ARE IN A SHORT 
CORRIDOR. TWO DOORS ARE IN TH 
E WALLS." 

1113 IF D(5,2)=l THEN PRINT '" 
THE DOOR TO THE NORTH IS OPEN." 

1114 IF D < 4,2) = 1 THEN PRINT *» 
THE DOOR TO THE SOUTH IS OPEN." 

1115 LET E«*10: IF D(5,2>=1 THEN 
LET N=14 

1116 IF D(4,2)=1 THEN LET S=13 

1117 RETURN 

1120 PRINT '" YOU ARE IN A GAME 
ROOM AND THE STUFFED HEADS OF GA 
ME HANG ON THE WALL.EX ITS ARE 
SOUTH AND WEST." 

1125 LET W-T3: LET S-10: RETURN 

1130 PRINT YOU ARE IN A STUDY 
.A DESK IS INTHE CENTRE OF THE R 
OOM AND A FEWCHAIRS ARE ARRANGED 
AROUND IT." 

1135 LET L=ll: LET N=ll: RETURN 

1140 PRINT '" YOU ARE IN A LIBRA 
RY.TALL BOOK SHELVES LINE THE RO 
DM WITH MANY BOOK STILL UPON THE 
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RKING STATE." 

1345 LET L=33s RETURN 

1350 PRINT •" YOU ARE IN THE BRO 

OM CUPBOARD. EXIT UP." 

1355 LET U=118: RETURN 
1360 PRINT •" YOU ARE AT THE BOT 
TOM OF SOME STEPS IN A BASEMENT 
.THIS ROOM ISFULL OF JUNK.A DOOR 
IS THE EXIT.“ 

1365 LET U—26: LET L=37: 00 SUB 
3000: RETURN 

1370 PRINT YOU ARE IN A BASEM 
ENT CORRIDOR.THE CORRIDOR GOES N 
ORTH AND TWO DOORS ARE TO THE WE 
ST AND EAST." 

1371 IF D(7,2)=0 THEN PRINT "ON 
LY. THE WEST DOOR IS OPEN." 

1372 IF D<7,2>-1 THEN PRINT "BO 
TH DOORS ARE OPEN.“ 

1373 IF D(7,2> =1 THEN LET E-38 

1375 LET N-39: LET W=36: RETURN 

1380 PRINT ■“ YOU ARE IN A WORKS 
OP.TOOLS HANGFROM THE WALLS." 
1385 LET L=37: RETURN 
1390 PRINT *" YOU ARE AT A CROSS 
-ROADS." 

1395 LET N-45: LET E-40: LET W=4 
2: LET S=37i RETURN 
1400 PRINT YOU ARE AT THE END 
OF A CORRIDOR.A DOOR IS 

IN THE NORTH WALL.YOU CAN EXIT W 
EST. " 

1405 LET W-39: GO SUB 3000: LET 
EN—41: RETURN 

1410 PRINT •" YOU ARE IN A SMALL 
ROOM WITH NEXT TO NO LIGHT BU 
T YOU SEE SOME WRITING ON THE 
WALL.“ 

1415 LET L-40: RETURN 
1420 PRINT •" YOU ARE AT THE END 
OF A CORRIDOR.TWO DOORS 

ARE OPEN AND A FUNNY SMELL COMES 
FROM ONE.THEDOORS ARE NORTH AND 
SOUTH." 

1425 LET S=43: LET N-44: LET E-3 
9: RETURN 

1430 PRINT •“ THE ROOM IS FILLED 
WITH FRUIT." 

1435 LET L=42: RETURN 
1440 PRINT •" THE ROOM IS FILLED 
WITH FRUIT." 

1445 LET L=42: RETURN 
1450 PRINT •“ YOU ARE IN A NORTH 
/SOUTH CORRIDOR.A DOOR IS 

IN THE WEST WALL." 

1455 LET N=47: LET S=39: GO SUB 
3000: LET EN=46: RETURN 
1460 PRINT •" YOU ARE IN A ROOM 
WITH BROKEN FURNITURE." 

1465 LET L=45: RETURN 
1470 PRINT *" YOU ARE AT THE NOR 
TH END OF A CORRIDOR.A DOOR IS 
IN THE WEST WALL." 

1475 GO SUB 3000: LET EN-49: RET 
URN 

1480 PRINT •" YOU ARE ON A LANDI 
NG.STEPS GO DOWN TO THE SOUTH A 
ND NORTH." 

1485 LET LIFE-2000: LET S=S3: LE 
T N-54: RETURN 

1490 PRINT •" YOU ARE IN A WINE 
ROOM.BOTTLES OF IT ARE ON THE SH 
ELVES.GLASSESOF WINE ARE ON A TR 
AY. " 

1495 LET L=47: RETURN 
1500 PRINT •" YOU ARE IN A CELL 
LIKE ROOM.ALLTHE WALLS ARE BARE. 
EXITS ARE EAST OR NORTH." 

1505 LET E-51: LET N-53: RETURN 

1510 PRINT YOU ARE IN A CIRCU 
LAR ROOM. A BIG HOLE IS ABOVE 
YOU. ■ 

1515 LET LIFE-2000: LET N-52: LE 
T W=50: RETURN 

1520 PRINT •" YOU ARE IN A DUSTY 
ROOM.YOU ARECHOKING ON IT SO LE 
AVE FAST.“ 

1525 LET LIFE- FN AO 4-10: LET S= 

51: LET L-51: RETURN 

1530 PRINT STEPS GO UP AND A 


1150 PRINT •" YOU ARE IN A SMALL 
HALLWAY.A DOOR IS IN FRONT OF 
YOU AND THE HALLWAY CARRIES ON 
TO THE SOUTH AND EAST." 

1154 LET E-12: GO SUB 3000: LET 
S-120: LET EN=18: RETURN 
1160 PRINT •" YOU ARE AT THE END 
OF THE CORRIDOR BUT A DOOR 

IS IN THE WALL.EXIT SOUTH." 


1165 LET LIFE-2000: GO SUB 3000: 
LET EN=17: LET S=6: RETURN 
1170 PRINT •" YOU ARE IN A PARLO 
UR BUT IT IS EMPTY.I SUGGEST YOU 
LEAVE QUICK AS IT SMELLS IN HER 
E. " 

1175 LET LIFE- FN AO+lOl LET L= 
16: RETURN 

1180 PRINT *» YOU ARE IN AN OLDE 
R CHILDS PLAY ROOM." 

1185 LET L=15: RETURN 
1190 PRINT •" YOU ARE AT THE END 
OF THE CORRIDOR.A DOOR IS 

IN THE WEST WALL.EXITS ARE SOUT 

1195 LET S-3: GO SUB 3000: LET E 
N=20: RETURN 

1200 PRINT ’" YOU ARE IN A LOUNG 
E.THE ROOM IS BIG AND LOOKS VE 
RY COSY." 

1203 IF D<10,2)=1 THEN LET D-76 


1230 PRINT YOU ARE IN A LONG 
EAST/WEST CORRIDOR.A DOOR IS 
IN THE SOUTH WALL." 

1235 GO SUB 3000: LET E-21l LET 
W=25: LET EN-24: RETURN 
1240 PRINT " YOU ARE IN THE KIT 
CHENS.A STOVEIS STILL WARM AND A 
SAUCEPAN IS ON IT." 

1245 LET L=23: RETURN 
1250 PRINT •" YOU ARE AT THE JOI 
NING OF THE CORRIDORS.YOU CAN G 
0 NORTH,EAST OR SOUTH." 

1255 LET S=26: LET N-27: LET E-2 
3: RETURN 

1260 PRINT - " YOU ARE AT THE TOP 
OF A FLIGHT OF STEPS AND A CORR 
IDOR GOES NORTH." 

1265 LET D-36: LET N-25: RETURN 

1270 PRINT YOU ARE IN A SHORT 
NORTH/SOUTH CORRIDOR.A DOOR IS 
IN THE EAST WALL.“ 

1275 GO SUB 3000: LET EN-28: LET 
N-29: LET S=25: RETURN 
12B0 PRINT '" YOU ARE IN THE DIN 
ING ROOM.A LONG TABLE IS IN TH 
E ROOM BUT THE WALLS ARE BARE. 

1285 LET L-27: RETURN 
1290 PRINT •" YOU ARE IN A SHORT 
NORTH/SOUTH CORRIDOR.A DOOR IS 
IN THE EAST WALL." 

1295 LET N-31: LET S-27: GO SUB 
3000: LET EN-30: RETURN 
1300 PRINT '" YOU ARE IN A WASHR 
OOM WITH A TOILET.IT SMELLS HO 
RRIBLE." 

1305 LET L=29: RETURN 
1310 PRINT •" YOU ARE IN A TURNI 
NG IN THE CORRIDOR.YOU CAN GO 

EAST OR SOUTH.“ 

1315 LET S-29: LET E-32: RETURN 

1320 PRINT •" YOU ARE IN A TURNI 
NG IN THE CORRIDOR.YOU CAN GO 

WEST OR SOUTH." 

1325 LET S-33: LET W-31: RETURN 

1330 PRINT '" YOU ARE AT THE END 
OF A VERY SHORT CORRIDOR.A DO 
OR IS IN THE WEST WALL.EXIT TO T 
HE NORTH." 

1335 LET N-32: GO SUB 3000: LET 
EN—34: RETURN 

1340 PRINT •" YOU ARE IN A SEWIN 
G ROOM.ALL LOOKS TO BE IN A WO 


1204 IF D(10,2)—1 THEN LET EN=7 
6 

1205 LET L=19: RETURN 

1210 PRINT ’" YOU ARE IN A LONG 
EAST/WEST CORRIDOR.A DOOR IS 
IN THE SOUTH WALL." 

1214 IF D(6,2)=l THEN GO SUB 30 
00 

1215 LET E-l: LET W=23 

1216: IF D(6,2)=1 THEN LET EN=2 
2 

1217 RETURN 

1220 PRINT '" YOU WALK INTO THE 
ROOM AND THE DOOR SWINGS SHUT BE 
HIND YOU.YOU LOOK AROUND TO NOTI 
CE SKELETONS OF THE LAST PEOPLE 
TO ATTEMPT THE QUEST." 

1221 PRINT '" YOU TRY THE DOOR B 
UT IT WILL NOT MOVE.IT LOOKS A 
S IF THE SAMEPERIL HAS COME YOUR 

WAY. " 

1225 GO TO 9960 
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1340 PRINT ' M YOU ARE IN A SMELL 
Y ROOM.EYES ARE LOOKING AT YOU. 
THINK QUICK AND MOVE EAST OR SO 
UTH. " 

1543 LET LIFE- FN AO+IO: LET E- 
53: LET S=4B: RETURN 
1550 PRINT •" YOU ARE IN A PHOTO 
GRAPHERS DARK ROOM.A BOOKSHE 

LF LOOKS OUT OF PLACE IN THE ROO 
M. " 

1555 LET LIFE-2000: LET E-54: LE 
T L=34: RETURN 

1360 PRINT *“ THE WALL CLOSES." 

1565 LET R(1)-119: GO TO 2190 
1370 PRINT •“ THE BOOKSHELF MOVE 
S BACK." 

1575 LET R(1)=55: SO TO 1550 
1580 PRINT " YOU ARE IN A SECRE 
T ROOM BEHINDTHE BOOKCASE." 

1585 LET L=57: RETURN 
1590 PRINT •" YOU ARE IN A BEDRO 
OM.THE WALLS ARE BRIGHTLY DECORA 
TED AND IT ALL LOOKS VERY COMF 
ORTABLE.“ 

1595 LET L=60: RETURN 
1600 PRINT •" YOU ARE IN A CORRI 
DOR.THE SOUTHIS A DEAD END BUT D 
OORS ARE IN THE EAST AND WEST S 
IDES.EX IT IS TO THE NORTH." 

1605 LET N—63: LET E-61: LET W-5 
9: RETURN 

1610 PRINT " YOU ARE IN SPARE B 
ED BEDROOM FOR IMPORTANT GUEST 
S.A FOUR POSTER BED LOOKS VE 

RY ELEGANT. A DOOR IS THE EXIT 
BUT ANOTHER DOOR GOES EAST." 
1615 LET E-62: LET L-60: LET W=6 
O: RETURN 

1620 PRINT " YOU ARE IN THE GUE 
STS PRIVATE BATHROOM.THE DOOR I 
S THE EXIT." 

1625 LET W=61: LET L-61: RETURN 

1630 PRINT *" YOU ARE AT A TURNI 
NG IN THE PASSAGE.A DOOR IS I 
N THE WEST WALL.EXITS ARE EAST 
AND SOUTH." 

1635 GO SUB 3000: LET EN-64: LET 
S-60: LET E-67: RETURN 
1640 PRINT " YOU ARE IN A BEDRO 
OM. A FOLDAWAYBED IS AGAINST THE 
WALL. " 

1645 LET L—63: RETURN 
1670 PRINT " YOU ARE ON AN EAST 
/WEST LANDINGWITH AN OPEN DOOR T 
0 THE SOUTH.” 

1675 LET W-63: LET E-123: LET EN 
=68: LET S=68: RETURN 
1680 PRINT '" YOU ARE IN A SITTI 
NG ROOM ^OR THE GUESTS OWN USE. 
THE FLOOR IS CARPETED STILL AND 
WARM. " 

1685 LET L=67: LET N-67: RETURN 

1690 PRINT •" YOU ARE ON AN EAST 
/WEST LANDINGWITH A DOOR TO THE 
SOUTH. " 

1695 LET W-123: LET E=71« GO SUB 
3000: LET EN=70: RETURN 
1700 PRINT " YOU ARE IN A BEDRO 
OM WITH BARE WALLS.IT IS DAMP AN 
D COLD." 

1705 LET L-69: RETURN 
1710 PRINT *" YOU ARE AT A CROSS 
ING IN THE LANDING.EXITS ARE N 
ORTH,SOUTH, EAST AND WEST." 

1715 LET N=72: LET S-80: LET W=6 
9: LET E—77: RETURN 
1720 PRINT " YOU ARE OUTSIDE A 
DOOR.EXIT TO THE SOUTH." 

1725 LET 8—71: GO SUB 3000: LET 
EN=73: RETURN 

1730 PRINT '■ YOU ARE IN A BEDRO 
OM.A WARDROBEIS IN ONE CORNER." 

1734 IF D(8,2)=0 THEN LET EN=74 

1735 LET L-72: RETURN 

1740 PRINT "• YOU ARE INSIDE THE 
WARDROBE.IT IS EMPTY.EXITS ARE 


EAST AND WEST" 

1745 LET E=73: LET W=75: RETURN 
1750 PRINT •" YOU ARE IN A SMALL 
ROOM HIDDEN THROUGH THE WARDROB 
E. " 

1753 LET L=73: RETURN 

1760 PRINT •" YOU ARE IN HOLE UN 

DER THE FLOOR" 

1763 LET U=110« RETURN 

1770 PRINT •" YOU ARE OUTSIDE A 

DOOR.EXIT TO THE WEST." 

1775 LET W-71: GO SUB 3000: LET 
EN-78: RETURN 

1780 PRINT *" YOU ARE IN A BEDRO 
OM.THE ROOM IS BARE AND LIFELES 
S. " 

1785 LET L-77: RETURN 
1800 PRINT '“ YOU ARE AT THE BOT 
TOM OF SOME STAIRS.EX ITS ARE UP 
AND EAST." 

1805 LET U=99: LET E-71: RETURN 
1810 PRINT " YOU ARE IN A MAIDS 
ROOM.THE BEDIS TIDY AND THE ROO 
M IS VERY NEAT." 

1815 LET L=88: RETURN 
1820 PRINT •" YOU ARE IN A MAIDS 
ROOM WHICH IS VERY UNKEMPT." 
1825 LET L=87: RETURN 
1830 PRINT " YOU ARE IN A BUTTL 
ERS ROOM.A MIRROR HANGS ON THE 
WALL." 

1840 LET L=86: RETURN 
1850 PRINT '" YOU ARE AT A TURNI 
NG IN THE LANDING.EXITS ARE E 
AST AND SOUTH" 

1835 LET E=102: LET S=B6: RETURN 
1860 PRINT 1 " YOU ARE ON A LONG 
NORTH/SOUTH LANDING.A DOOR IS I 
N THE WEST WALL." 

1865 LET EN-83: LET N=85: LET S= 
87: QO SUB 3000: RETURN 
1870 PRINT •" YOU ARE ON A LONG 
NORTH/SOUTH LANDING.DOORS ARE T 
0 THE EAST AND WEST.BOTH ARE 0 
PEN. " 

1875 LET E=91: LET W=B2: LET N=8 
6: LET S=BB: RETURN 
1880 PRINT " YOU ARE AT A TURNI 
NG IN THE LANDING.A DOOR IS I 

N THE WEST WALL.EXITS ARE NORT 

H AND EAST." 

1885 LET N=87: LET E-89: GO SUB 
3000: LET EN-81: RETURN 
1890 PRINT *“ YOU ARE OUTSIDE A 
DOOR.EX ITS TOTHE WEST." 

1895 LET W=B8: GO SUB 3000: LET 
EN=94: RETURN 

1910 PRINT ,u YOU ARE IN THE COO 
KS SLEEPING QUARTERS." 

1915 LET L=B7: RETURN 
1920 PRINT '" YOU ARE IN THE LAU 
NDRY ROOM BUTTHERE IS NO LAUNDRY 
TO BE SEEN. A WASHING BOARD IS 
ON THE FLOOR AND IS VERY BROKEN. 

1925 LET L-99: RETURN 
1940 PRINT •" YOU ARE IN THE SER 
VANTS ROOM.ITIS EXTREMELY TIDY A 
ND NOTHING LOOKS OUT OF PLACE. 

1945 LET L=89: RETURN 
1970 PRINT " YOU ARE IN THE MUS 
IC STORE ROOMBUT IT IS EMPTY OTH 
ER THAN THICKDUST." 

1975 LET L-98: LET N-98: RETURN 
1980 PRINT •" YOU ARE IN THE MUS 
IC ROOM.A MUSIC STAND IS UP W 
ITH MUSIC ON IT.AN OPEN DOOR IS 
SOUTH." 

1985 LET EN-97: LET W=99: LET S= 
97: LET L=99: RETURN 
1990 PRINT '" YOU ARE AT THE TOP 
OF THE STAIRS.A LANDING GO 

ES NORTH AND OPEN DOORS ARE EAST 
AND WEST." 

1995 LET D=80: LET W=92: LET E=9 
8: LET N-100: RETURN 
2000 PRINT •" THE LANDING GOES N 
ORTH,SOUTH AND EAST, AND A DOO 
R IS IN THE WEST WALL." 

2005 LET N-102: LET S-99: LET E= 
104: GO SUB 3000: LET EN-101: RE 
TURN 
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2010 PRINT •" YOU ARE IN THE TUT 
ORS SCHOOL ROOM.A SUM IS ON TH 
E BOARD.THE SUM IS 13+15 ALL MU 
LTIPLIED BY 100." 

2015 LET L-100: RETURN 
2020 PRINT '" YOU ARE IN A TURNI 
NG ON THE LANDING.YOU MAY GO 

WEST OR SOUTHAND A DOOR IS TO TH 
E EAST. " 

2023 LET W=85: LET S-100: GO SUB 
3000: LET EN-103: RETURN 
2030 PRINT •" YOU ARE IN THE TUT 
ORS ROOM.A DOOR IS OPEN TO THE 
EAST." 

2035 LET L=102: LET EN-106: LET 
E=106: RETURN 

2040 PRINT •" YOU ARE OUTSIDE TH 
REE OPEN DOORS.EX ITS ARE WES 
T.THE DOORS ARE NORTH,EAST AND 
SOUTH." 

2045 LET W=100: LET E=lll: LET N 
=108: LET S=112: RETURN 
2060 PRINT •" YOU ARE IN THE TUT 
ORS PRIVATE BATHROOM.THE EXIT I 
S THE DOOR." 

2063 LET L=103: RETURN 
2080 PRINT •" YOU ARE IN THE NAN 
NIES ROOM.A DOOR IS TO THE EAST 
AND SOUTH.A CRADDLE ROCKS BACK 
AND FORTH." 

2085 GO SUB 3000: LET E=110: LET 
S—104: LET L-104: LET EN-110: R 
ETURN 

2100 PRINT ’" YOU ARE THE THE NA 
NNIES BEDROOMWHICH IS SMALL AND 
LOVING.A RUG IS ON THE FLOOR." 

2105 LET L-108: LET W=108: RETUR 

2110 PRINT '" YOU ARE IN A YOUNG 
CHILDS PLAY-ROOM.SOME TOYS ARE 
STILL ON THE FLOOR." 

2115 LET L-104: LET W-104: RETUR 
N 

2120 PRINT YOU ARE IN A SMALL 
ROOM WITH CHILDRENS PAINTINGS 
ON THE WALL." 

2123 LET L-104: LET N-104: RETUR 

2130 PRINT " THERE ARE FOUR WAY 
S.NORTH,EAST,SOUTH AND WEST." 
2133 LET N=114: LET S-116: LET W 
=117: LET E-113: RETURN 
2140 PRINT INK 3;'" YOU WALK IN 
TO THE ROOM AND THE DOOR SHUTS.T 
HE WALLS STARTS TO LAUGH AND TH 
EN SCREAM.MIRRORS REFLECT YOUR 
IMAGE AND BEND IT. THE LIGHT BL 
INDS YOU AND THE SCREAM INJUR 
ES YOUR EARS. THE DOOR HA 

S SHUT ON YOUR FATE." 

2145 GO TO 9980 

2130 PRINT INK 2j‘“ RUN WEST •» 
: LET LIFE- FN AO+5: LET LLIFE- 
1: LET W-113: GO TO 90 
2160 PRINT " A LONG SLIDE IS IN 
FRONT OF YOUAND IT GOES DOWN TO 
THE GROUND. OUTSIDE,PEOPLE ARE 
GATHERING ANDAS YOU APPEAR,EVERY 
ONE CLAPS BUTHAVE YOU WON?" 

2165 PRINT " YOU SLIDE DOWN TO T 
HE GROUND. NOW YOU MUST GIVE TH 
E RUBY AND THE GOLD BAR TO ELLE 
NS FATHER. EVERYTHING STILLS." 

2166 PAUSE 600: LET D*="RUBY": G 
0 SUB 7000: IF H=6 THEN PRINT 

" OH DEAR!YOU DO NOT HAVE A RUBY 
.WHAT WILL YOU DO ? WELL IT WILL 
NOT BE TO MARRY ELLEN.YOU HAVE 
FAILED YOUR QUEST.": GO TO 9980 

2167 LET D*="GOLD BAR": GO SUB 7 
.000: IF H=6 THEN PRINT " OH DE 
IAR!YOU HAVE FAILED YOUR QUEST 
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BECAUSE YOU DO NOT HAVE A GOLD B 
AR.WELL YOU COULD ALWAYS TRY AG 
AIN. M : GO TO 9980 

2168 CLS s PRINT INK l;" YOU HA 
VE CONQUERED YOUR QUEST. ELLEN R 
UNS TOWARDS YOU WITH HER ARMS OP 
EN WIDE TO RECEIVE YOU. HER FAT 
HER IS PLEASED.LONG LIVE YOU BOT 

2169 BEEP .9,-3: BEEP .3,0: PAUS 
E 1: BEEP .13,0: BEEP 1,0: PAUSE 

2: BEEP .9,-5: BEEP .5,2: PAUSE 
1: BEEP .15,-1: BEEP 1,0; PAUSE 
2: BEEP .9,-3: BEEP .5,0: PAUSE 
1: BEEP .15,4: BEEP .5,7: PAUSE 
1: BEEP .15,4: BEEP .9,0: PAUSE 
2: BEEP .9,-5: BEEP .5,2: PAUSE 
1: BEEP .15,-1: BEEP 1,0: PAUSE 
10: GO TO 2169 

2170 PRINT INK 2;" YOU FALL DOW 
N A HOLE IN THE FLOOR.YOU GRA 
B THE EDGE AND HOLDYOURSELF UP. 

SUDDENLY A F 
OOT APPEARS.IT IS BIG AND UNFRI 
ENDLY AND STAPS ON YOUR HANDS." 

2175 PRINT INK lj" YOU FALL TO 
YOUR DEATH.": GO TO 9980 
2180 PRINT YOU ARE AT THE BOT 
TOM OF SOME STAIRS.A STAR SHAPE 
D HOLE IN THEBANISTER IS CURIOUS 
■EXITS ARE UPAND SOUTH." 

2185 LET U=123: LET S=l: RETURN 

2190 PRINT •" YOU ARE IN A LONG 
THIN HALLWAY THAT GOES NORTH AND 
SOUTH.THE WEST WALL HAS PICTU 
RES ON IT ANDTHE EAST WALL IS BA 
RE.YOU FIND IT STRANGE !" 

2195 LET N=3: LET S=2: RETURN 

2200 PRINT •" YOU ARE IN A CONSE 
RVATORY.SOME SCULPTURES DECORATE 
THE ROOM." 

2205 LET L=15: LET N=15: RETURN 

2220 PRINT '" YOU ARE IN A ROOM 
WITH A DOOR AT THE OTHER END.TH 
E CONVEYER BELT TO REACH THE D 
OOR IS GOING IN THE WRONG DIRECT 
ION.THERE IS A BUTTON TO STOP 
THE CONVEYERBELT ON THE WALL BU 
T IT IS OUT OF REACH.EX ITS ARE 
WEST." 

2225 LET W=7: RETURN 
2230 PRINT *" YOU ARE AT THE TOP 
OF SOME STAIRS.A LANDING GO 

ES EAST AND WEST." 

2235 LET E=69: LET W=67: LET D=1 
18: RETURN 

2260 PRINT •" YOU ARE ON A LEDGE 
IN THE HOLE.MUCH HIGHER UP IS A 
NOTHER HOLE." 

2264 IF R(2)=3 THEN PRINT " A 
ROPE HANGS DOWN." 

2265 RETURN 
2310 RETURN 

3000 PRINT •" THE DOOR IS OPEN." 
: RETURN 

3100 IF N=0 THEN GO TO 3130 
3110 LET Rll)=N 
3120 GO TO 30 

3130 PRINT INK 2;'"YOU CAN NOT 
GO IN THAT DIRECTION" 

3140 GO TO 90 

3200 IF E=0 THEN GO TO 3130 
3210 LET Rll)=E 
3220 GO TO 30 

3300 IF S=0 THEN GO TO 3130 
3310 LET R(1)=S 
3320 GO TO 30 

3400 IF W=0 THEN GO TO 3130 
3410 LET R(1> =W 
3420 GO TO 30 

3500 IF U=0 THEN 60 TO 3130 
3510 LET R <1)=U 
3520 GO TO 30 

3600 IF D=0 THEN GO TO 3130 
3610 LET R <1> =D 
3620 GO TO 30 

3700 RESTORE 9040: FOR F=1 TO 30 
: READ C*: IF LEN A*- LEN C*-l< 
1 THEN GO TO 3715 


3710 IF C*=A*< LEN A*- LEN C * TO 
LEN AT-1> AND 0(F)=R(1) THEN 
GO TO 3720 

3715 NEXT F: GO TO 3770 

3720 FOR G=1 TO 5 

3730 IF ClG>=0 THEN GO TO 3750 

3740 NEXT G: PRINT INK 2;’"YOU 

CARRY TOO MUCH.": GO TO 90 

3750 LET 01F>=0: LET C<G)=F 

3760 PRINT " O.K": GO TO 90 

3770 PRINT INK 3;'"I CAN NOT SE 

E IT GO TO 90 

3800 REM DROP 

3810 FOR F=1 TO 5: RESTORE 9040: 

FOR G=1 TO C(F>: READ C*: NEXT 
G 

3820 IF LEN A*- LEN C*<1 T^EN 
GO TO 3840 

3830 IF A# l LEN A*- LEN C* TO L 
EN AS-1)=C* THEN GO TO 3850 
3840 NEXT F: GO TO 3870 
3B50 LET C<F)=0: LET 0(G-1)=R(1) 

3860 GO TO 3760 

3870 PRINT INK 3;'“YOU ARE NOT 
CARRYING IT !": GO TO 90 
3900 IF B*="LADDER" THEN GO TO 
3950 

3910 LET D#="MOULD": GO SUB 7000 
: IF H=6 THEN GO TO 5790 
3920 LET D*="GREEN LIQUID": GO S 
UB 7000: IF H=6 THEN GO TO 5790 

3930 PRINT INK 1;*" YOU HAVE MA 
DE A STAR FROM THE MOULD.": LET 
D*="MOULD": GO SUB 7000: LET C( 
H)=3: LET D*="GREEN LIQUID": GO 
SUB 7000: LET CtH>=0: GO TO 90 

3950 LET D*="WOOD": GO SUB 7000: 
LET N=H: IF H=6 THEN GO TO 579 

O 

3960 LET D*="NAILS": GO SUB 7000 
: LET S-H: IF H=6 THEN GO TO 57 
90 

3970 LET D*="HAMMER": GO SUB 700 
O: LET W=H: IF H=6 THEN GO TO 5 
790 

3980 PRINT INK 1;’" YOU HAVE A 
LADDER.": LET ClN>=0: LET ClS)=0 
: LET ClW>=0: LET C(W)=2: GO TO 
90 

4000 IF R(1)*11 THEN G0 TO 4050 

4010 IF R(1> =37 THEN LET D*="BL 

UE KEY": GO SUB 7000 

4020 IF H=6 THEN PRINT ‘ “ YOU N 

EED THE CORRECT KEY.": GO TO 90 

4030 IF Rll>=37 THEN PRINT “ T 

HE DOOR LOCKS.": LET D17,2>=0: L 

ET D(7,1)=0: GO TO 90 

4040 IF Rll) <> 37 THEN GO TO 5 

790 

4050 LET D*="RED KEY": GO SUB 70 
00: IF H=6 THEN PRINT " YOU NE 
ED THE CORRECT KEY.": GO TO 90 

4060 PRINT •" THE DOOR LOCKS.": 
LET D(5,2)=0:: LET D<5,1)=0: GO 
TO 90 

4100 IF R(1) <> 24 THEN GO TO 5 
790: IF B* <> "SOAP" THEN GO TO 
5790 

4110 LET D*="SOAP": GO SUB 7000: 
LET F-H: IF H=6 THEN GO TO 579 

0 

4120 GO SUB 7020: LET N=H: IF H= 
6 THEN GO TO 5790 
4130 GO SUB 7020: IF H=6 THEN G 
0 TO 5790 

4140 PRINT INK If'" THE SOAP ME 
LTS INTO A GREEN LIQUID.": LE 
T C(N)=0: LET ClF>=0: LET C(H)=4 

4150 GO TO 90 

4400 FOR F=1 TO LEN A*-3: IF A* 
(F TO F+3)“"STAR" THEN GO TO 44 
20 

4410 NEXT F: GO TO 5790 

4420 IF R <1) <> 118 THEN GO TO 

5790 

4430 IF B* <> "HOLE" THEN GO TO 
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5790 

4440 LET D*="STAR": GO SUB 7000: 

IF H->6 THEN GO TO 5790 
4450 LET C tH> =0: PRINT ’" THE ST 
AR FITS NEATLY INTO THE HOLE.SU 
DDENLY THE STAIRS OPEN AND A R 
OOM IS REVEALED.YOU WALK IN.": L 
ET R(1)“35: GO TO 30 
4500 IF B*="DOOR" THEN GO TO 45 
70 

4510 IF B*="WARDROBE" THEN GO T 
O 4550 

4520 IF B* <> "SESAME" THEN GO 
TO 5720 

4530 IF Rll) <> 48 AND R(l> <> 1 
19 THEN GO TO 5720 
4540 IF R(1> =119 THEN LET D(9,l 
>=1: PRINT '" THE WALL OPENS LIK 
E A DOOR TO REVEAL A LANDING I 
N THE WALL.": LET R<1>=56: LET E 
N=48: 60 TO 90 

4545 IF Rll)=48 THEN LET D(9,l) 
-1: PRINT THE WALL OPENS LIKE 
A DOOR TO REVEALING THE HALLWA 
Y.": LET Rll)=56: LET L-119: LET 
EN=119: GO TO 90 
4550 IF Rll) <> 73 THEN GO TO 5 
720 

4560 PRINT •" THE WARDROBE OPENS 
.“: LET EN=75: LET D18,1)=1: GO 
TO 90 

4570 IF Rll) <> 110 AND Rll) <> 

2 AND Rll) <> 4 AND Rll) <> 7 AN 
D Rll) <> 11 AND Rll) <> 21 AND 
Rll) <> 37 THEN GO TO 5720 

4579 IF Rl1)=11 AND D14,2>=1 THE 
N GO TO 4584 

4580 IF Rll)=2 THEN LET D(l,2>= 
1: LET EN=119: GO SUB 3000: G0 T 
O 90 

4581 IF Rll)*4 THEN LET D12,2>= 
1: LET EN=5: GO SUB 3000: GO TO 
90 

4582 IF Rl1)=110 AND D110,1>=1 T 
HEN LET D(10,2)=1: LET D=76: LE 
T EN=76: GO SUB 3000: GO TO 90 

4583 IF Rl1)=11 THEN LET D14,2) 
=1: LET EN=13: GO SUB 3000: GO T 
0 90 

4584 IF Rll)=11 AND D15,1)=1 THE 
N LET D15,2)=1: LET EN=14: GO S 
UB 3000: GO TO 90 

4586 IF Rl1)=21 THEN LET D16,2> 
=1: LET EN=22: GO SUB 3000: GO T 
O 90 

4587 IF Rll)=37 AND D17,1>=1 THE 
N LET D17,2)=1: GO SUB 3000: GO 

TO 90 

4588 IF Rll)=37 AND D17,1)=0 THE 
N PRINT •" THE DOOR IS LOCKED." 

: GO TO 90 

4589 IF R11> =11 AND D15,1>=0 THE 
N PRINT •" THE DOOR IS LOCKED." 
: GO TO 90 

4590 PRINT INK 2}*" YOU CAN NOT 
OPEN IT.": GO TO 90 

4600 IF Rll)=98 AND B*="MUSIC" T 
HEN BO TO 4650 

4610 IF B# <> "LOCKET" THEN BO 
TO 5790 

4620 LET DS=“GOLDEN LOCKET": GO 
SUB 7000: IF H=6 THEN GO TO 579 
O 

4630 PRINT INK l| f " THE WRITING 
IS TOO SMALL.": GO TO 90 
4650 PRINT INK 3; "THE NOTES AR 
E:C,E,F,A." 

4660 GO TO 90 

4700 LET D*="MAGNIFYING GLASS": 
IF B*="MOP" THEN LET D*=B* 

4705 GO SUB 7000: IF H=6 THEN G 
O TO 5790 
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4710 IF B*="M0P" AND R(l>=122 TH 
EN PRINT ’“ YOU STRETCH OUT WIT 
H THE MOP AND MANAGE TO PUSH T 
HE BUTTON. THE CONVEYOR BELT ST 
OPS MOVING."! LET D<7,2>=1: LET 
E=8: GO TO 90 

4720 LET D*="GOLDEN LOCKET"! BO 
SUB 7000! IF H=6 THEN GO TO 579 
O 

4730 IF B*="GLASS" THEN PRINT ' 

" IT SAYS!'* TO REACH A HIDDEN 
LANDING,FIND A PLACE BARE AND 
STRANGE,SHOUT OPEN SESAME,AND 
YOUR LUCK WILL CHANGE.'"! GO TO 
90 

4790 GO TO 5790 

4800 IF B*="FRUIT" AND R<1>=43 T 
HEN CLS ! PRINT INK 4j'" YOU E 
AT THE FOOD AND FEEL GOOD.BUT SU 
DDENLY YOU FELL DIZY AND YOUR 
HEAD SPINS.YOU JUMP AND JERK U 
NTIL YOU FALL TO THE FLOORIN A H 
EAP.YOU HAVE FAILED YOUR QUEST, 
"i GO TO 9960 

4810 IF B*="FRUIT" AND R<1)=44 T 
HEN PRINT YOU EAT THE FOOD A 
ND FEEL GOOD.YOU START TO FEEL A 
S IF LIFE COULD BE MORE ENJOY 
ABLE FROM NOWON.LIFE FOR YOU W1L 
L BE EXTENDEDUNLESS YOU MAKE SOM 
E MISTAKE."! LET LLIFE=Oi GO TO 
90 

4820 PRINT INK 1|'“ YOU CAN NOT 
EAT THAT."! GO TO 90 
4900 LET D*="ROPE"! GO SUB 7000! 

IF H=6 THEN GO TO 5790 
4905 IF R<2>=0 THEN PRINT '" YO 
U THROW THE ROPE AND IT DOES NOT 
CATCH ANYTHING."! GO TO 90 
4910 LET D*="GRAPLING IRON": GO 
SUB 7000: IF H=6 THEN RETURN 

4920 IF R(2)*1 AND R(l> <> 126 T 
HEN PRINT ’" YOU THROW THE ROPE 
BUT IT DOES NOT CATCH ANYTHING. 
": GO TO 90 

4930 IF R(2)=1 AND R(l)-126 THEN 
PRINT •" YOU THROW THE ROPE AN 
D THE IRONCATCHES ONTO SOMETHING 
SAFE."! LET D*="ROPE": BO SUB 7 
OOOi LET R<2>=3! LET C<H>»0: LET 
D*="GRAPLING IRON"! GO SUB 7000 
: LET C(H>=0: GO TO 90 
5000 IF R(1> =11 THEN GO TO 5050 

5010 IF R<1>=37 THEN LET D*="BL 
UE KEY"! GO SUB 7000 
5020 IF H=6 THEN PRINT *" YOU N 
EED THE CORRECT KEY.": BO TO 90 
5030 IF R(1)=37 THEN PRINT T 
HE DOOR UNLOCKS."! LET D<7,l)-li 
GO TO 90 

5040 IF R(l) <> 37 THEN GO TO 5 
790 

5050 LET D*="RED KEY"! GO SUB 70 
00i IF H=6 THEN PRINT 1 " YOU NE 
ED THE CORRECT KEY."! GO TO 90 

5060 PRINT •" THE DOOR UNLOCKS.« 
: LET D(5,1)*1: GO TO 90 
5100 IF B*="WINE" AND R(l)=49 TH 
EN PRINT '" THE WINE IS COOL AN 
D REFRESHINBAS IT SLIDES DOWN YO 
UR THROAT.ITALL SEEMS WELL WHEN 
SUDDENLY YOUBLACK OUT.": PAUSE 5 
00: LET R<1>*20! CLS : PRINT '" 
YOU WAKE TO FIND YOURSELF ON T 
HE SETEE.": GO TO 90 
5110 PRINT INK lj•" YOU CAN NOT 
DRINK THAT.": GO TO 90 
5200 IF R(l) <> 51 THEN GO TO 5 
790 

5210 LET D*="LADDER": GO SUB 700 
0: IF H=6 THEN GO TO 5790 
5220 PRINT INK 1;YOU CLIMB 0 
N TO A LEDGE.THE LADDER FALLS 
AWAY.A LONG WAY UP IS A HOLE.": 
LET R<1)“126! LET C(H)=Oi BO TO 
90 

5300 GO TO 5400 

5399 STOP 

5400 IF EN=0 THEN GO TO 5420 


5410 LET R(l)=ENi GO TO 30 
5420 PRINT INK 2j'" YOU CAN NOT 
USE ENTER OR IN.": GO TO 90 
5500 GO TO 5600 
5600 IF L=0 THEN GO TO 5620 
5610 LET R(1)=L: GO TO 30 
5620 PRINT INK 2j'" YOU CAN NOT 
USE LEAVE OR OUT.": BO TO 90 
5700 IF B*="RUG" THEN GO TO 575 
O 

5710 IF B*="BOOKSHELF" THEN GO 
TO 5730 

5715 IF R<1)=10 AND B»="PICTURES 
" THEN GO TO 5791 
5720 PRINT INK 2j•" YOU CAN NOT 
DO THAT.": GO TO 90 
5730 IF R(1) <> 55 THEN BO TO 5 
790 

5740 LET EN-SBi LET R(l)=57l PRI 
NT '" THE BOOKSHELF MOVES TO REV 
EAL A HIDDEN ROOM."! GO TO 90 

5750 IF R(1) <> 110 THEN GO TO 
5790 

5760 PRINT “ THE RUG MOVES TO R 
EVEAL A TRAP DOOR IN THE FLOOR." 

5770 LET D(10,1> =1: GO TO 90 

5790 PRINT INK 2;'" YOU CAN NOT 
DO THAT."! GO TO 90 

5791 PRINT •• BEHIND ONE PICTURE 
IS A SAFE BUT IT HAS A COMBIN 

AT I ON LOCK. ENTER THE COMBINAT I 
ON IF YOU KNOW IT.“l GO TO 90 

5799 STOP 

5800 CLS : PRINT '"REMEMBER THER 
E ARE FOUR PARTS TOTHE SAVING." 

5810 SAVE " ELLEN 1" DATA OO 
5820 SAVE “ELLEN2" DATA RO 
5830 SAVE "ELLEN3" DATA CO 
5840 SAVE "ELLEN4" DATA DO 
5850 PRINT 'O.K." 

5860 GO TO 90 

5900 CLS ! PRINT '"LOADING:START 
TAPE PLAYING" 

5910 LOAD “ELLEN 1" DATA OO: LOA 
D "ELLEN2" DATA RO: LOAD "ELLEN 
3" DATA CO! LOAD "ELLEN4" DATA 
DO 

5920 GO TO 5850 
6000 GO TO 30 

6100 PRINT INK 1{'"Y0U ARE CARR 
YING:" 

6110 LET H=l: FOR F=1 TO 5: IF C 
(F)=0 THEN GO TO 6140 
6120 LET H=0 

6130 RESTORE 9040: FOR B=1 TO C< 
F): READ C*: NEXT G: PRINT INK 
3$ C* 

6140 NEXT Fi IF H=1 THEN PRINT 
INK 2;"NOTHING." 

6150 GO TO 90 

6200 IF R(1> =24 THEN PRINT 
TRY HEATING SOMETHING 7" 

6210 IF R(1)=118 THEN PRINT '» 
PUT A STAR IN THE HOLE.“ 

6220 IF R(1)=51 THEN PRINT T 
RY USEING SOMETHING TO CLIMB UP 
THROUGH THE HOLE" 

6230 PRINT '" HAVE YOU MADE A MO 
ULD YET 7" 

6280 IF R(1) <> 51 AND R<1> <> 1 
18 AND R(1) <> 24 THEN PRINT 
I DON'T HAVE ANY OTHER IDEAS." 

6290 GO TO 90 

6300 LET D*="ROPE": BO SUB 7000 

6310 LET D*="GRAPLING IRON"! BO 
SUB 7000 

6320 IF H=6 THEN GO TO 5790 
6330 LET R(2)=1 
6340 PRINT '" O.K.GO TO 90 
6400 IF R(l) <> 126 OR R(2) 03 
THEN GO TO 5790 

6410 PRINT '" YOU CLIMB UP THE R 
OPE TO THE TOP."! LET R(l)=113 
: GO SUB 2130: GO TO 90 
6500 GO TO 4400 

6600 IF R <1) <> 34 THEN BO TO 5 
790 
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6605 FOR F=1 TO 5: LET D*="SHEET 
": GO SUB 7000: IF H=6 THEN GO 
TO 5790 
6610 NEXT F 

6620 PRINT '" YOU HAVE MADE A RO 
PE BUT YOU WILL NOT BE ABLE TO 
DROP IT !"! LET C(l>=li FOR F=2 
TO 5: LET C(F)=0: NEXT F: GO TO 
90 

6700 IF R(1)=10 THEN PRINT INK 
15 '" THE SAFE OPENS AND A GOLD 
BAR FALLS OUT.THE SAFE DISAPEAR 
S."! LET 0(14)=10s GO TO 90 
6710 PRINT '” WHAT WAS THAT FOR 
7": GO TO 90 
7000 FOR H=1 TO 5 
7010 RESTORE 9040: FOR B=1 TO C< 
H): READ C*: NEXT G: IF C*=D* TH 
EN RETURN 
7020 NEXT H: RETURN 

8999 STOP 

9000 DATA "N","E","S","W H ,"NORTH 
","EAST","SOUTH","WEST","UP","DO 
WN","U","D","TAKE","DROP","MAKE" 

,"LOCK","HEAT","TIE","ROPE","PUT 
","OPEN","READ","USE","EAT","THR 
OW","UNLOCK","DRINK","CLIMB","IN 
","ENTER" ,"OUT","LEAVE","MOVE"," 
SAVE","LOAD","LOOK","LIST","INVE 
NTORY" 9005 DATA "HELP","2800" 

9010 DATA 1,2,3,4,1,2,3,4,5,6,5, 
6,7,8,9,10,11,12,13,14,15,16,17, 
18,19,20,21,22,23,24,25,26,27,28 
,29,30,31,31,32,33 

9020 DATA "1",”2","3","4","5",“6 
**, "7" , "8" , "9" , " 10" , "11" , " 12" , " 13 
••,"14", "15" ,"16", "17", "18", "1913 
","20","21","22","23","24","25", 
"26","27","28","29","30","31","3 I 
2","1213","2213","1423","913“,"3 
3" 

9040 DATA "ROPE","LADDER","STAR" 

,"GREEN LIQUID","BOOK","CIGAR BO 
X","NAILS","HAMMER","WOOD","BOLD 
EN LOCKET","SHEET","SHEET","SHEE 
T","GOLD BAR","SHEET","SHEET","S 
HEET","SHEET","MOULD","SHEET","M 
OP","RUBY","GRAPLING IRON","BLUE 
KEY","RED KEY","MAGNIFYING BLASI 
9050 DATA 0,0,0,0,14,13,38,38,46 
,59,61,64,70,65,78,81,82,83,111, 
111,35,76,75,14,58,18,38,5,30,10 
6 

9930 DEF FN A<>=<<65536* PEEK 23 
674+256* PEEK 23673+ PEEK 23672) 
/50) 

9940 POKE 23674,01 POKE 23673,Oi 
POKE 23672,0: RETURN 
9950 IF R(1> =54 THEN CLS l PRIN 
T '" THE EVIL EYES BELONGED TO A 
BIGWIDOW SPIDER.THEY CRAWL TOWA 
RDS YOU AS IF THEY HAVE NOT GOT 
A BODY.ITS MOUTH OPENS ON YOU 
AND ITS DEADLY FANGS SINK INTO Y 
OUR ARM.THE POISON ACTS QUICKLY 
AND YOU ARE DEAD. " 

9960 IF R(1)=17 THEN CLS : PRIN 
T INK 4; " YOU ARE TOO SLOW.THE 
SMELL WAS A DEADLY GAS AND YOU 
HAVE DIED BECAUSE OF IT." 

9970 IF FN AO >2000 THEN CLS : 

PRINT INK 4j'" YOU HAVE NOT EA 
TEN THE FRUIT OFLIFE AND HAVE CO 
NSEQUENTLY DIED." 

9980 PRINT INK lj'“ UN 

LUCKY" 

9990 FOR F=1 TO 30i BEEP .01,F: 
NEXT F: FOR F=30 TO 1 STEP -li B 
EEP .01,F: NEXT F: FOR F=1 TO 30 
STEP 2: BEEP .01,F: NEXT F: FOR 
F=30 TO 1 STEP -2: BEEP .01,Ft 
NEXT Fl GO TO 9990 
9999 CLEAR : SAVE "FOR LOVE" LIN 
E 1 
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A NEW, IMPROVED 
ZX81 KEYBOARD AT THE SAME 
OLD PRICE. £9.95. 


OtUTf 


Mum 


There’s only one thing wrong with the 
ZX81. Its keyboard. 

Or rather its lack of one. 

Since it's flat your fingers don’t feel as if 
there’s any response to the pressure put on 
the keys. 


2X81 KEYS F1LESIXTY KEYS 

In other words, you're not quite sure 
which keys you’ve pressed until the screen 
actually tells you. 

Our new, improved push button keyboard 
changes all that. 

It matches the ZX81 perfectly. And the 
keys give a real calculator-type feel. 

To set it up all you have to do is peel off the 
adhesive backing and stick it on top of the 
ZX81 touchpad. 

Because no tampering or soldering is 
involved the guarantee is not affected. And it 
will last for up to 3‘/2 million operations. 


But our keyboard doesn’t just come 
loaded with features. With it comes a separate 
overlay and a set of coloured stick-on labels to 
make game playing easier. 

It’s yours for the original price of £9.95. 
Whichever way you look at it, we think 
you’ll agree that it’s a keyboard that’s quite 
outstanding. 

r~Orders to Filesixty Ltd., FREEPOST London W9 2BR I 
I Cheques/PO made payable to Filesixty Ltd. 

I Please send me_(qty.) Keyboards at £9.95 each i 

I (including VAT and P&P). 

I Total £ _ | 

| .. BLOCK CAPITALS I 

| Name _ | 

Address 


B6 



Filesixty Ltd., 25 Chippenham Mews, London W9 2AN, England.Tel: 01-289 3059. Telex: 268 048 EXTLDN G 4087. 
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Y OU PLAY THE part of Dotty 
the kangaroo who has been put 
on a course to test his intelli¬ 
gence and physical ability. Work out 
the way to escape from each room, but 
first jump onto the red blocks as doing 
this will show you where the exit is. 
When you have completed the course 
you start again only, this time, strange 
things happen. As you jump onto the 
blocks they may disappear and leave 
you stranded in mid-air. If you are agile 
you will be be able to jump to the 
nearest block to avoid certain death in 
the shark-filled waters below. 

The Kangaroo was written for the 
16K Spectrum by Ian McTavish, aged 
14, who is a pupil of Bristol Grammar 
School, Shirehampton, Bristol. 
McTavish, a former ZX-81 owner has 
had his Spectrum since March and this 
is the first program he has written. 


qw Phase flag (0 = first, 

1 = second) 

q Bounce count (q=2, three 

character bounce) 

KX,KY Character location above red 
block 

a Read variables for user- 

defined graphics 

n,l Loop counters 

General Notes 

1 Line 80 is redundant as it contains 
one PAUSE too many. 

2 Lines 87 and 5040 are redundant as 
they serve the same function as the 
following PAUSEs. 

3 Line 510 contains two IFs. This 
works, but is not good programming 
technique. A better form would be: 
IF first condition THEN GOTO 
line containing second IF and LET 
statements. 

4 If you find the game too difficult as 
it stands try giving the kangaroo 
more bounce by increasing q to 3 in 
line 510. 

5 PRINT statements such as line 70 
should be PRINT’. 


Sub-routines 

1-18 Set up user-defined 

graphics and variables 
20-90 Set up screen and display 

instructions 

100-150 Print background room 
graphics 

155-160 Print foreground room 
graphics 

490-640 Bounce loop 
700-730 Red block routine 
2100-2150 Test one graphics 
2200-2250 Test two graphics 
2300-2350 Test three graphics 
2400-2450 Test four graphics 
2600-2700 Next phase 
5000-5070 Lose life 


Variables 

Graphics: q=“room” block 
i,j = kangaroo 

x,y Kangaroo co-ordinates 

e,r Kangaroo co-ordinates for 

testing 

1 Test number (1-4) 

sc Score 

men Lives left 
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SET UP 1 

Introduction and instructions 
Set up user-defined graphics, sc, 1 
and men 

1 REM Dotty the kangaroo 

2 LET qw=0 

3 LET a*-"_I" 

5 DATA 255,129,129,129,129,12 
9,129,255 

10 FOR n=0 TO 7« READ a: POKE 
USR "q"+n,a: NEXT n 
12 DATA 24,24,16,60,4B,120,136 
,4 

14 FOR n-0 TO 7t READ a: POKE 
USR "1"+n,ai NEXT n 
16 DATA 24,24,8,60,12,30,17,32 

18 FOR n-0 TO 7* READ ai POKE 
USR "j“+n,a: NEXT n 
20 BORDER 2i PAPER 0 
25 CLS 

30 PRINT AT 1,7| FLASH 1; INK 
6 ;"Dotty The.Kangaroo" 

40 INK 7s PRINT AT 4,0;"Imagi 
ne yourself as a kangaroo. You h 
ave been captured by the mad K 
ing and put on a course to test 
your inteligence and your physi 
cal ability." 

50 PRINT s PRINT 
60 PRINT "You must work out th 
e way to getthrough each roan.“i 
PRINT : PRINT “The only way to 

survive is_"s PRINT i PRINT • 

To complete the course." 

70 PRINT s PRINT : PRINT “USE 
KEYS 5 for left 8 for right" 

80 PAUSE 0 

86 PAUSE Os CLS i PRINT t PRIN 
T "Ps...you might find it easier 

to get out if you jump on the 
red block.” 

87 IF INKEY* <> "" THEN 80 
TO 87 

88 PAUSE 0 

90 LET sc-Os LET 1-ls LET men- 
3 


SET UP 2 

Print room graphics without jump 
block. 

Initialise x and y 

100 LET y—17l LET x -2 
110 CLS 

120 PRINT "TEST N0.",1," men 
“Js FOR i -1 TO mens PRINT 5 INK 
3;“.L , ;s NEXT it PRINT " SCORE-" 

; INK 4;sc; " 

130 INK 6 s PRINT AT 21.0| “QQQQ 
QQQQQQQQQQQQQQQQQQQQQQQQQQQQ "s A 

’ "; PAPER 0;"QQQ 

AT 19.0s" QQQQQ "I PAPER 1|" 

"5 PAPER Oj 

" QQQ "1 AT 18.Os" QQQQQ 
QQQ" 

140 PRINT AT 1,0;" QQQQQQQQQQQQ 
QQQQQQQQQQQQQQQQQQQQ "s FOR i-2 T 
0 17s PRINT AT i,0;"Q“; AT 1,31 
,"Q“. NEXT 1 

150 BEEP .4,-341 PAUSE 4i BEEP 
.4,-30s PAUSE 4s BEEP .4,-26s PA 
USE 4s BEEP .4,-IBs PAUSE 2s BEE 
P . 8 ,-22s FOR i-1 TO 4s PAUSE 2s 
BEEP .2,<-22-2*i)s NEXT 1 

MAIN 1 

If all four tests complete THEN call 
NEWPHASE, otherwise call TEST 
1, where 1 = 1 to 4. 

155 IF 1=5 THEN SO TO 2600 
160 BO SUB 2000+1*100 

MAIN 2 

Set up test co-ordinates for kangaroo 
(e=x, r = y) 

IF kangaroo in water (y> 19) THEN 
call LOSELIFE 


IF kangaroo on a block then call 
bounce count (q=2) 

AND IF new phase (qw= 1) AND 
random number (1-10)= 1 THEN 
erase block below and print new 
block at random co-ordinates (y= 1- 
18, x = 2-28) 

IF kangaroo descending (q=-l) 
THEN jump to MAIN3 
Decrement r and q (ascending) 

490 LET e=xs LET r-y 
500 IF y>19 THEN BO TO 5000 
510 IF SCREEN* <y+l,x> <> " « 
THEN LET q=2s IF qw=l AND INT 
( RND *10)-1 THEN PRINT AT y+1 
,K)“ "s PRINT AT INT ( RND *18 
>+l, INT ( RND *27>+2,"CT 
520 IF q—1 THEN BO TO 600 
530 LET r-r-1 
540 LET q=q-l 
560 BEEP (q+1)/100,-20 

MAIN 3 

Turn kangaroo to face left or right. 
Scan keyboar and update test x co¬ 
ordinate (e = e + key 8-key 5) 

IF through hold (e> 31) THEN 
increment test number (1 = 1 + 1) 
update score, jump to SETUP 2. 
Erase old kangaroo. 

If r,e impossible then jump to MAIN 
4 

IF descent (ql-1) AND nothing below 
(null character) THEN increment r. 
r,e are O.K. so set x = e, y=r 

600 IF INKEY* =“8" THEN LET a 
*="_I" 

601 IF INKEY* -“5" THEN LET a 
*-"J“ 

602 LET e=e+< INKEY* ="B">-< IN 
KEY* =“5") 

603 IF e>31 THEN LET 1-1+1s LE 
T bc=sc+1*2s GO TO 100 

604 PRINT AT y,x;" ■ 

605 IF SCREEN* (r,*> <> “ " TH 
EN BO TO 630 

610 IF SCREEN* <r+l,e>-” " AND 
q— 1 THEN LET r-r+1 
615 LET y-rs LET x=e 

MAIN 4 

Print new kangaroo 

IF on red block THEN call OPEN 

630 PRINT AT y,x; INK 3;a* 

635 IF y-ky AND x-kx THEN BO S 
UB 700 

640 GO TO 490 

Jump to MAIN 1 

OPEN 

Erase two blocks in right hand wall 
Update score 
Erase red block 
Re-set kx,ky ( = 0) 

700 PRINT AT 15,31;" AT 14, 
31," - 

710 BEEP .01,30: BEEP .02,10 
720 LET bc—sc+1 

725 PRINT AT y+l,x; INK 6,"Q": 
LET ky-Os LET kx=0 
730 RETURN 

TEST 1 

Print the jump blocks 

Set location of character position 

above red blocks: ky = 9, kx=9 

2100 PRINT AT 15,7;" QQQQQ "; AT 
10,7;"QQ"; PAPER 2;"Q"; PAPER 0; 

••or 

2105 PRINT AT 13,1;" QQQQ "; AT 1 
3,17;" QQQ " 


2140 LET ky=9s LET kx=9 
2150 RETURN 

TEST 2 

As in TEST 1 ky =13, kx= 1 

2200 PRINT AT 14,1; PAPER 2;"Q" 

; PAPER 0; “JJ." 

2210 FOR i=9 TO 29 STEP 5s PRINT 
AT 19-i/5,i-1;"QQ"; AT 11+1/S, 
i_ 2 ;"£H, NEXT i 
2220 LET ky=13s LET kx -1 
2250 RETURN 

TEST 3 

As in TEST 1 ky = 3, kx= 1 

2300 PRINT AT 4,1; PAPER 2 
PAPER 0;" QQQ" 

2310 FOR 1-1 TO 6 s PRINT AT 20- 

i*3,i*4;"QQ", AT (i*3)+2,(i*4)+3 

; "QQ"i NEXT i 

2320 LET ky-3s LET kx-1 

2350 RETURN 

TEST 4 

As in TEST 1 ky = 3, kx = 5 

2400 FOR i-9 TO 24 STEP 5s PRINT 
AT 19,i;"Qy; AT 20,i;"fl": NEXT 

2410 FOR i-1 TO 3s PRINT AT i*5 
,l;”Q“s IF i>1 THEN PRINT AT ( 
1*5)-2,4;"Q" 

2420 NEXT 1 

2430 PRINT AT 4,5; PAPER 2;"£" 

2440 LET ky=3s LET kx-5 
2450 RETURN 

NEWPHASE 

Re-set test number (1 = 1) 

Update score 

Print new phase warning 

Set new phase flag (qw= 1) 

Add bonus life (men=men+1) 

Jump to SETUP 2 

2600 LET 1-1 

2610 LET sc-sc+5 

2630 FOR i=-30 TO 30s BEEP .01,1 

s NEXT i 

2640 PRINT AT 10,10; FLASH 1;" 
AMAZING ! "s FOR i=l TO 500: NEX 
T is PRINT s PRINT "but the evil 
king has decided totry the expe 
riment again just to make sure 
of the results." 

2650 FOR i—30 TO -30 STEP -Is BE 
EP .01,is NEXT i 
2660 PAUSE 350 

2670 PRINT : PRINT "you might fi 
nd some differences" 

2680 PAUSE 150 
2690 LET qw=l 
2695 LET men-men +1 
2700 BO TO 100 

LOSELIFE 

Decrement lives (men = men-1) 

Print men (and why one life lost) 

If any lives left THEN jump to 
SETUP 2 
Print score 
Re-run program 

5000 FOR i=l TO 5s BEEP .2,i*5s 
BEEP .1,1*2* NEXT i 
5010 LET men-men-1 
5020 CLS 

5030 PRINT AT 7,0;"you have jus 
t found out that thewater is ful 
1 of kangaroo eating S H 

ARKS ! “ 

5035 PRINT s PRINT s PRINT men," 
lives left" 

5040 IF INKEY* <> "" THEN BO 
TO 5040 
5045 PAUSE 0 

5050 IF men >0 THEN BO TO 100 
5060 PRINT s PRINT "You scored: 
";sc 

5070 FOR i=l TO 100: NEXT i: RUN 
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excaLTBciR 


C OLLECT the swords scattered 
about the castle of Camelot. 
There is a time limit on each 
screen and you must watch for the 
dreaded diamonds and the magic doors 

5 POKE 23658,8: POKE 23609,10 
: BORDER 6: PAPER O: INK 7: CLS 

10 FOR F-0 TO 47: READ A: POKE 
USR "A"+F,A: NEXT F 
20 DATA 136,255,34,255,136,255 
,34,253,126,129,189,163,163,189, 
129,126,7,13,25,178,100,104,240, 
168 

30 DATA 60,102,195,129,129,195 
,102,60,24,60,118,251,251,118,60 
,24,66,66,66,126,66,66,66,66 
35 LET HI=0: LET H*="NOBODY": 
GO SUB 1000: LET A=l: BO SUB 400 
0 

40 LET LEV-0: LET MON-15: LET 
DEL-0: LET LI-3: LET SC=0 

45 CLS : LET TIME-100: LET SW- 
0: LET X-l: LET Y-17 

50 PRINT AT 0,0; INK 5; "AAAAA 
AAAAAAAAAAAAAAAAAAAAAAAAAAA" 

60 PRINT AT 18,0; INVERSE 1;" 


which Merlin has put down to trap you. 

Excalibur was written for the 16K 
Spectrum by Leigh Howetts, of Deep¬ 
ing St James, Peterborough. 


; AT F, 4; " - A_"; AT F,3; INK 2;'T": 
NEXT F: PRINT AT 3,3; INK 2; "F_ 

85 FOR G—3 TO 12: PRINT AT G, 
5; INK 2;"F": NEXT G: FOR G-10 T 
O 17: PRINT AT B,6; INK 2;^F": 
NEXT G 

90 FOR F—0 TO 15: PRINT AT F, 
8; INK 5;‘lAj': NEXT F 

95 PRINT AT 11,20; INK 5; “AAA 
AA": AT 9,16; INK 4: “AAAAA ": AT 
7,12; INK 5;" AAAAA " 

100 PRINT AT 15,9; INK 5:" AAAA 


105 BRIGHT 1: PRINT AT 17,3;"C. 
"; AT 3,4;^C"; AT 10,24; AT 

8,20; ; AT 6,16; "C_"; AT 3,18;" 

_£•; AT 3,26; "C."; AT 9,30; “Cj 1 : BR 
IGHT O 

110 FOR F-10 TO 17: PRINT AT F 
,22; INK 2;"F": NEXT F: FOR F=8 
TO 14: PRINT AT F,18; INK 2;"F" 

: NEXT F: FOR F=6 TO 14: PRINT 
AT F,14; INK 2; , T": NEXT F 
115 FOR F=0 TO 17: PRINT AT F, 
31; INK 5; "A_": NEXT F 
120 FOR F=3 TO 15: PRINT AT F, 
10; INK 2; , T": NEXT F 


130 PRINT AT 4,11; INK 5: "AAAA 
AAAAAAAAAAAAAA " 

140 FOR F—3 TO 15: PRINT AT F, 
28; INK 2;"F": NEXT F: PRINT AT 
10,29;"AA" 

150 IF LEV >= 1 THEN PRINT AT 
14,12; INK 5; *^A": PRINT AT 9,1 

155 IF LEV >= 2 THEN PRINT AT 
3,16; INK 5;"A“; AT 11,21;“ "; 

AT 5,14; INK 2;'^"; AT 4,14; INK 
2;"F"; AT 3,14; INK 2;"F" 

160 — IF LEV >= 3 THEN PRINT AT 
17,7; INK Sj'lA"; AT 14,8; INK 0 

. ? 170 IF LEV>3 THEN LET LI-LI+1 

200 LET D-0: PRINT AT Y,X; INK 
7: FLASH 1;'1B": PAUSE 10: PRINT 
AT Y, X; FLASH 1;"_D": PAUSE 10 

210 PRINT AT 21,1;"SC=";SC;;" 
LIVES-"|LITIME-"; INT TIME;" 
LEV-";LEV+1;" " 

220 IF INKEY* ="P" AND ATTR ( 
Y,X + l) <> 5 THEN LET X-X+l: PRI 
NT AT Y,X-l;" " 

230 IF INKEY* ="0" AND ATTR ( 
Y,X-l) <> 5 THEN LET X-X-l: PRI 
NT AT Y,X+l|“ " 

240 IF ATTR (Y-l,X)-2 AND INK 
EY* -"0" THEN LET Y-Y-ll BEEP . 
007,Y: PRINT AT Y+l.X; INK 2;"F 

245 IF ATTR (Y+1,X>=2 AND INK 
EY* -"A" THEN LET Y-Y+li BEEP . 
007,Y: PRINT AT Y-1,X; INK 2;"F 

230 IF SCREEN* <Y+1,X>-" " THE 
N LET Y-Y+l: BEEP -05,y: PRINT 
AT Y,X; FLASH l;"JL“j AT Y-1,X;“ 
": LET D-D+l: GO TO 410 
260 IF ATTR <Y-1,X>=20 THEN G 
0 SUB 6000 

270 IF ATTR (Y,X+1)=71 OR ATT 
R (Y,X-l>=71 THEN RANDOMIZE US 
R 32529: LET SC-SC+100: LET SW-S 
W+l: PRINT AT Y,X+1;" "j AT Y,X 

280 PRINT AT 17,MON; INK 6;'Jt" 
: PRINT AT 17,MON-1;" "t IF MON 
=25 THEN LET MON-15: PRINT AT 
17,25;" " 

285 IF X-0 AND Y-17 AND SW-8 TH 
EN LET LEV-LEV+1: LET SC-SC+100 
0: GO SUB 2000: GO TO 45 
290 IF ATTR <Y,X+1>=6 OR ATTR 
(Y,X—1)—6 THEN GO SUB 6000 
300 PRINT AT 19,0; INK del;"(l 
l»ig8: i£:iX:lC:lA:lL:lI:lB:iU:iR 
: 12*iq8 )" 

310 IF TIME-.5 <= 0 THEN GO TO 
6000 

320 IF SW-8 THEN PRINT AT 17, 


,8;" "; AT 16,8;" "; AT 4,24;" " 
; AT 15,27;" ": BEEP .01,-10 
393 IF DEL-4 THEN PRINT AT 17 
,8; PAPER 2; INK 4;"(q5>"; AT 16 
,8;"<g5)": AT 4,24:"(q5>": AT 15 
,27; " (ci5) LET DEL=(5T"BEEP .01, 


410 IF SCREEN* <Y+1,X> <> " " 
THEN RANDOMIZE USR 32529 
413 IF D >= 6 THEN GO SUB 6000 
: GO TO 450 
420- GO TO 250 

1000 RESTORE 1000: FOR F-32500 T 
0 32555: READ A: POKE F,A: NEXT 
F 

1010 DATA 6,4,197,33,15,1,17,2,0 
,229,205,181,3,225,17,16,0,167,2 
37,90,125,254,255,32,237,193,16, 

230.201 

1020 DATA 0,6,1,197,33,0,3,17,1, 
0,229,205,181,3,225,17,16,0,167, 

237.82.32.240.193.16.233.201 
1100 RETURN 

2000 PRINT AT 8,10;"WELL DONE ' 
"; AT 10,8;"LEVEL ";LEV;" COMPLE 
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2005 FOR F=—1 TO -4 STEP -1: FOR 
E=1 TO 4: BEEP .1,F: BEEP .1,6: 
BEEP .1,13: BEEP .1,14 
2020 IF INKEY* ="" THEN NEXT E 
: NEXT F: 60 TO 2005 
2030 RETURN 

3010 PRINT AT 9,11; FLASH 1;"6A 
ME OVER" 

3015 BEEP 1,9: BEEP 1,5: BEEP .5 
,4: BEEP .5,7: BEEP .5,5: BEEP . 
5,-3: BEEP 2,2 

3020 IF SC>HI THEN INPUT "PLEAS 
E ENTER YOUR NAME:"} LINE H*: LE 
T HI=SC: IF LEN H*>8 THEN 60 T 
O 3020 

3030 PAUSE 100: CLS 

4000 BRI6HT 1: LET A-A+l: IF A > 

= 6 THEN LET A=0 

4010 PRINT AT 4,1; INK A+4;"THI 

S IS THE 6AME OF''EXCALIBUR ,v . Y 

OU FLASH 1;"B"; FLASH O'" MUS 
T COLLECT UP ALL OF THE SWO 

RDS £. SCATTERED ABOUT THE CAS 
TLE OF CAMOLOT." 

4020 PRINT INK A+3;'" YOU HAVE 
THREE LIVES AND A TIME LIMI 

T.WATCH OUT FOR THE DREADED D 

IAMOND _E_ AND THE MA6IC DOO 

RS THAT MERLIN HAS PUT DOWN 

TO TRAP YOU." 

4025 PRINT INK A;" USE KEYS:0,P 
: Q, A " 

4030 PRINT AT 20,4; INK A+3;"HI 
6HSC0RE=“;HI;" BY ";H* 

4100 PRINT AT 2,1; INVERSE 1; I 
NK a; " E X C A L I B U R 

4110 RANDOMIZE USR 32500: RANDO 

MIZE USR 32529: IF INKEY* ="" , 

THEN 60 TO 4000 

4120 BRI6HT 0: CLS : 60 TO 40 

6000 FOR F=1 TO 4: RANDOMIZE US 

R 32500: NEXT F: LET SC=SC-100: 

LET LI-LI-i: LET SW=0 

6010 IF LI=0 THEN 60 SUB 3010 

6020 CLS : 60 TO 45 


A PROGRAM for budding spies, 
moles and all members of secret 
societies. Choose a code number 
between one and 65535. Your ZX-81 
will then encode a message for you. 
Once this has been done, send the 
message and code number to your ac¬ 
complice, and the message can be de¬ 


coded on another ZX-81 with the same 
program. Keep your code number safe 
and your enemies will spend weeks 
searching through the permutations be¬ 
fore they can decode your letter. 

Enigma was written for the 16K 
ZX-81 by Robert Street of Belper, Der¬ 
byshire. 
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only £39-95 


weeks for upgrade 

h Fully cased tested and guaranteed. 


including VAT and P&R 


Cheetah Marketing Ltd, 24 Ray Street, 
London EC 1R3DJ. Tel:01 8334909. 
Telex: 8954958. 


Now make your 
Spectrum 
and ZX-81 Talk 

Compatible with Interface I & II 


The Cheetah "SWEET TALKER" just plugs into the back of the 
computer using the existing power supply. Based on an allophone 
system you can easily program any word sentence or phrase. Fully 
cased, tested guaranteed and compatible with all SINCLAIR 
accessories via rear edge connector. Complete with demonstration 
cassette and full instructions. 

No more lonely nights! V 

Simply incredible at f XJ 

(Please quote when ordering whether Spectrum or ZX81 owner) 

16K RAM Pack for ZX-81 £19.75 

64K RAM Pack for ZX-81 £44.75 

Prices include VAT. postage & packing. Delivery normally 14 days. Export orders at no extra cost. 

Dealer enquiries welcome 

Cheetah, products available from branches of 

whsmith 4 Rumbelows 

_ _ and all good computer stores 
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KILLER CORNFLAKE 


T HE OBJECT of Killer Corn¬ 
flake is to collect as many sugar 
lumps as possible and place 
them on the score in the dish. You will 
be pursued by a Killer Cornflake as it 
attempts to crunch you. After typing-in 
the program, enter LET A = PI/PI and 
LET X = VAL “20”. Use GOTO 1 to 
play. 

Written for the IK ZX-81 by Scott 
Burgess, aged 15, of High Green, Shef¬ 
field. 

Main code 

1-5 Set up variables — SETUP 
8-10 Program management — MAIN 
26-27 Program management — MAIN 
14-17 Computer control — FLAKE 
19-25 Player control — SPOON 
Variables/Characters used 
A,B Y,X co-ordinates of spoon 
X,Y Y,X co-ordinates of flake 
Note reversal of conventional X,Y 
notation. 

S Sugar count 

E Dummy variable used for exit 

Graphics variables 

X$ Sugar lump — “gh” or “ ” 

Graphics character 

“-0”Spoon 

“I”“Flake 

“gy”Dish/bowl 

“gt”Dish/bowl 


For the purpose of describing how 
the program works “module” names 
have been given to the different sections 
of the program. These have no pro¬ 
gramming significance, but are the ones 
which might have been used in stage 
four of a structured approach as de¬ 
scribed in Program Tutor this month. 

SET UP sets up the variables. A= 1 
and X=20 must also be added before 
the program is executed. GOTO 1 is 
therefore used to avoid clearing these 
when the program is executed. Practi¬ 
cally, this retains vertical separation 
between spoon and flake, with only 
horizontal separation restored to its 
original value. 

MAIN prints the graphics for the 
spoon, flake, sugar, dish and sugar 
bowl. x$ is used for the sugar or lack of 
it in the sugar bowl, and not for the 
sugar being carried by the spoon. Call 
FLAKE, call SPOON. If SPOON 
= FLAKE that is, if A = X, and B=Y, 
then print CRUNCH and exit. If there 
is no sugar in the sugar bowl that is, if 
x$ = “ ”, then print SPOON = SUGAR. 
Clear screen. Jump to main. 

FLAKE controls movement left, 
right, up and down by comparing the 
values of X and Y, A and B. 


SPOON checks whether spoon=su¬ 
gar in bowl or, in Basic, whether A = 15 
and B = 25. If so x$ = “ ” is set for erase. 
It also checks whether sugar=dish or, 
in Basic, whether A=5,B = 4andx$ = “ 
”. If these are all true, the sugar count is 
increased by one and x$ is changed to 
x$ = “(gh)” to print the sugar in the 
bowl. Finally the keyboard is scanned 
and the co-ordinates A and B are altered 


* El? W "30" 

3 LET XM"|" 

<1 LET S»PI-PI 
S LET B»PI/PI 
8 PRINT AT A,6-1,' 


BL , AT 5,2, "S .",5, 

' i?, 23?* 

£ IF A »X RND B »Y THEN PRINT R 
T A.B-1, "1UWU!|",0 

10 IF X«* l,u THEN PRINT RT fl.B, 

*14 IF X >R THEN LET X-X-URL "2" 

15 IF X <R THEN LET X.X+URL "3" 

16 IF Y>B THEN LET Y =Y-URL "3" 

17 IF Y < B THEN LET Y«Y♦URL "2" 
12 IF RaUAL "IS" AND B = UAL "2S 

" THEN LET X*a"" 

20 IF RaUAL 5" AND B=UAL "4" 
AND X*»"" THEN LET S=S»PI/PI 
22 IF A=UAL "5" AND B=UAL "4" 
AND X* = ' THEN LET X*a"*" 

24 LET RaR+UAL "2"*tINKEY*="6" 
AND H<21>-UAL "2"*<INKEY*a"7" A 

HD A > PI/PI> 

25 ..ET BaB+URL "3"*(INKEY$■"8" 
AND S<UAL "31")-URL "3"»(INKEY« 

a"5" AND B >PI/PI) 

26 CLS 

27 GOTO 8 
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BlOCktD 

W HEN RUN the program will 
ask you to choose a velocity 
between 1 and 100. The ob¬ 
ject of the game is to cross the screen as 
many times as possible without crashing 
into your line or any of the other points. 
It seems easy at first but becomes harder 
once several crossings have been made. 
Use keys Q and A to move. 

Blocked was written for the 16K 
Spectrum by Claudio de Castilho, aged 
12, of Cambridge, Cambs. 


1 CLS : BRIGHT 1: INPUT AT O 
,0;" Velocityd TO 1QO) ";ve: 
BORDER 0: PAPER O: INK 7s CLS 

2 LET hi=0: GO .SUB 100 

3 CLS 

5 LET »c=0 
10 LET a=l: LET b=l 

15 LET a=a+ < INKEY* ="q")-< IN 
KEY* =”a") 

16 PRINT AT 0,10;"High=";hi 

18 LET b=b*(l) 

19 IF POINT <b,a) OR POINT < 
b+1,a) OR POINT <b,a*l> THEN G 
O SUB 300 

20 PLOT INK 4;b,a: BEEP ve/10 

00, <a*2)/10 

21 IF a=175 THEN LET a=174 
23 LET sc=sc+l: PRINT AT 0,0; 

"Score=";sc 


>••“1 





24 IF b-254 THEN LET b=l: BEE 
P .5,0 

25 IF a=0 THEN LET a=l 

26 PLOT INK 6; INT ( RND *255 
>, INT ( RND *175) 

30 GO TO 15 

100 DRAW 255,0s DRAW 0,175s DR 
AW -255,0: DRAW 0,-175 
110 PRINT AT 0,12; PAPER 4; I 
NK 3; INVERSE 1; FLASH 1;"BL0CKE 
D" 

120 FOR t=-60 TO 60s BEEP .02, 
t: NEXT t 

130 PRINT AT 3,5;"C.F.C PRESEN 
TS"; AT 6,3;“ TRY TO GO FROM ONE 
SIDE OF THE SCREEN TO THE OTHER 
ONE WITH OUT CHRASHING ON YOUR 
LINE OR ON THE OTHERS POINTS IN 
THE SCREEN. IT SEEMS TO BE EASY 
BUT IT GETS HARDER. READY7THE 
KEYS ARE •Q','A'“; AT 20,8;"PRE 


SS ANY KEY" 

140 PAUSE 0: PRINT AT 20,0;"** 
******* **NOW---—-": 

PAUSE 100: PAUSE 100: CLS 

150 DRAW 255,0: DRAW 0,175: DR 
AW -255,0: DRAW 0,-175: RETURN 

300 CLS : PRINT AT 10,10; INVE 
RSE 1; PAPER 3; INK 4; FLASH 1;" 
Game Over": BEEP 1,-20: PRINT ‘‘ 
"Your Score was ";sc: IF sc>hi T 
HEN LET hi =sc 

310 PRINT AT 20,2;"Press any k 
ey to play again (I Tor instro 
ctions)": PAUSE 0: CLS : DRAW 25 
5,0: DRAW 0,175: DRAW -255,0: DR 
AW 0,-175: GO TO 315 

315 IF INKEY* <> “i" THEN GO 

TO 3 

320 GO SUB 100: GO TO 3 

500 RUN 



UP your sights with the 
IVjH II I approaching alien and fire your 
^-^laser using “0". If you allow the 
* A a alien to pass it will take one of your fuel 

KjV v y tanks. Once all your fuel tanks have 

k A- been taken you will be left drifting in 

Sf C/A,.. >" s P ace - 

X Cockpit was written for the 16K 
Spectrum by James Newall, aged 11, of 
Killamarsh, near Sheffield. 




5 BORDER 4: PAPER 0: INK 7: C 
LS 

10 GO SUB 1000 
15 LET s=0: LET 1=3 
20 LET x = INT ( RND *30): LET 
y=15: LET a=17: LET b=0 

25 PRINT AT 0,0;"SCORE=";s;" 

FUEL TANKS=“;1 

30 PRINT AT a,b;'lA": LET aa=a 
: LET bb=b 

35 BEEP .003,10 
40 PRINT AT y,x; 

45 LET yy=y: LET xx=x 
50 LET y=y+ < INKEY* ="6" AND y 
<21>-( INKEY* ="7" AND y>5) 

60 LET x=x-M INKEY* ="8")-< IN 
KEY* ="5") 

65 IF INKEY* ="0" THEN GO SU 
B 200 

70 IF x<0 THEN LET x=30 
80 IF x>30 THEN LET x=0 


90 LET b=b+2: IF b=30 THEN PR 
INT AT a,30;" ": LET b«0: LET a 
=a+l: IF a=21 THEN GO TO 500 
100 PRINT AT yy,xx;" "; AT aa, 
bb;" " 

110 GO TO 25 

200 PLOT 0,175: DRAW INK 2;x#8 
,-y*8 

205 BEEP .05,5 

210 IF y=a AND x=b THEN LET s= 
s-f 10: FOR n=10 TO 40: BEEP .01,n 
: NEXT n: CLS : GO TO 20 
220 CLS : RETURN 
500 LET 1=1-1 

510 FOR n=49 TO 56: BEEP .01,n: 
NEXT n 

520 IF 1X> THEN CLS : GO TO 20 

530 BEEP RND ,s/10 
540 PRINT AT 10,10;"ALL FUEL L 
OST"; AT 11,10;"(GAME OVER)" 

550 INPUT "ANOTHER GO(Y/N)";a* 
560 IF a*="y" OR a*="Y“ THEN R 
UN 

570 STOP 

1000 FOR n=0 TO 7 

1010 READ a: POKE USR "a"+n,a: 

NEXT n 

1020 DATA 36,126,219,255,90,102, 


1030 PRINT AT 2,7; INVERSE 1;"S 
INCLAIR PROGRAMS”; INK 2; AT 4,1 
2;"PRESENT" 

1035 FOR n=0 TO 20: BEEP .01, IN 

T ( RND *55): NEXT n 

1040 PRINT AT 10,12; INVERSE 1; 

"COCKPIT" 

1045 PRINT AT 10,11; FLASH 1;“( 
iq5 )AT 10,19;"tq5)"; AT 11,11 
:" <iql:7»iq3:iq2 )"; AT 9,ll|"<i£ 
4:7»g3:g7 )" 

1050 PRINT PAPER 4; AT 15,4;"PR 
ESS ANY KEY TO PLAY"; INK 1; PA 
PER 6: AT 17,3;"OR SPACE FOR INS 
TRUCTIONS" 

1060 IF INKEY* ="“ THEN GO TO 
1060 

1070 IF INKEY* =" " THEN GO SU 
B 1100 

1080 PAUSE 0: CLS : RETURN 
1100 CLS : PRINT "Controls are:" 
: PRINT : PRINT "56780": PR 
INT " < d ~ > FIRE" 

1105 FOR n=10 TO 40: BEEP .01,n: 
BEEP .01,n-2: NEXT n 
1110 PRINT : PRINT " A=10 POINTS 
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M3 




ARTH is being invaded by a 


and guide it using keys Z and M. 
rH fleet of alien troopships. They Alien Troopship was written for 
^appear one at a time and if one the IK ZX-81 by Barry Bayley of Tel- 
descends far enough it will land and ford, Shropshire. To play with a RAM 
deploy its warriors over the surface of pack connected, enter POKE 16389,68 
Earth. To prevent them doing so you and NEW before LOADing. 
have to launch a missile using any key 


ig LET S*NQT PI 
20 LET C* INT PI 
22 GOTO CODE "2" 

25 PRINT AT X,Y;"<<>>" 

27 LET S*S+SGN PI 
32 CLS 

40 LET X«INT (RNDtCODE '•")*C0 
OE " ■" 

50 LeT Y»INT (RND#CODE "■")*C0 
DE "0" 

80 <_ET B-CODE ' 

90 IF SaUAL "20" THEN GOTO UAL 
530" 

100 CLS 

110 PRINT AT X,Y;’rt^,RT B,(C 
AND C>0)."♦" 

120 IF C-ABS Y*1 AND ABS iX-B)< 
*1 THEN GOTO 25 

150 IF INKEY(< >•"• OR B<21 THEN 
LET B=8-3 

170 IF INKEY( = "Z" AND C>0 THEN 
LET C-C-4 

180 IF INKEYi = "H" AND C<31 THEN 
LET C«C +4 

185 IF Y>0 OR Y«-28 THEN GOTO 4 
00 

190 LET Y »Y -2 

200 GOTO 100-20*(B<0> 

400 IF XaCODE THEN GOTO UAL 

500" 

410 LET X-X+CODE "•" 

420 IF X >12 THEN GOTO UAL "200" 
430 LET Y.-Y 
440 GOTO 190 
500 CLS 

502 PRINT AT CODE ",Cj 
505 FOR BaY-SGN Y TO Y-SGN Y*CO 
DE " . " 

510 PRINT AT CODE "+",B;"*^^*" 
520 NEXT B 

530 PRINT AT CODE "£",NOT PI; C- 
EARTH CONOUERED" AND S<X)*t"ENEh 
Y REPULSED" AND SaCODE S," 

ALIENS DESTROYED" 


see your ship in perspective. The en- Megatron Run was written for the 








































T HE CURSOR runs quickly 
along a series of numbers. Test 
your reactions by pressing “S” 
to stop it on the number nine. 

Nine Stop was written for the IK 
ZX-81 by Brian Forsyth of Kirkaldy, 
Fife. 


1 LET A«0 

2 CL5 

10 PRINT AT 0, 

15 GOSUB 110 
20 PRINT RT 0,0, 
25 GOSUB 110 
30 PRINT RT 0,0.; 
35 GOSUB 110 
4.0 PRINT RT 0,0 
4.5 GOSUB 110 
50 PRINT RT 0,0 
55 GOSUB 110 
60 PRINT RT 0,0 
65 GOSUB 110 
70 PRINT RT 0,0 
75 GOSUB 110 
80 PRINT RT 0,0; 
35 GOSUB 110 
90 PRINT RT 0,0; 

100 LET R»1 

101 GOSUB 110 
105 GOTO 1 

110 IF INKEY f *"S 
PRINT "WELL DONE" 

111 IF INKEY t = "S 
PRINT "BRD LUCK" 

112 IF INKEY t*"S 

0 

113 RETURN 


023456789" 

' 1034.56789” 
'120456789" 
'123056789" 
'1234.96789" 
•1234.58789" 
*1234.56989" 
■123456709'' 
"12345678B" 

RND flxl THEN 
AND fl*0 THEN 
THEN PAUSE 10 



mmcuYBiu 

M AKE sure that you are not 
being charged too much for 
electricity with Electricity 
Bill for the IK ZX-81. Input the price 
per unit and the numbers on your meter 
and your ZX-81 will tell you what your 
bill should be. 

Written by Brian Forsyth of Fife, 

Scotland. 


PRINT RT 0,6;' 

1 " 

RINT "INPUT PREUIOUS RERDI 


30 INPUT 
40 PRINT 


50 INPUT 
60 PRINT 


'INPUT PRESENT RERDIN 


__ . _ "INPUT PRICE (PENCE) 

PER UNIT FOR FIRST SET OF UNITS" 
70 INPUT PI 

80 PRINT "INPUT NUMBER OF UNIT 
S RT THAT PRICE" 

90 INPUT N 

100 PRINT "INPUT PRICE (PENCE) 
PER UNIT FOR REMAINING UNITS" 

105 INPUT P2 _ __ 

110 IF T <L THEN PRINT "MISTAKE 
IN READINGS" 

120 LET U =T-L 

130 IF U >N THEN PRINT "£";N*P1/ 
100+(U-N)+P2/100 
140 IF U <N THEN PRINT "£";U*P1/ 
100 
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••• and access an 
of news, view 



Games 


Travel 


Simply by connecting your 
Spectrum to the telephone line, via 
the award-winning Prism VTX 5000 
communications modem, you can get 
to all the information, games and 
communication facilities held on 
viewdata mainframes. 

So, you can link into a variety of 
services, including Prestel and 
Micronet 800. Access hundreds of 
software programs - many completely 
free. Talk to fellow users. Keep up-to- 
date with all the latest national, 
international and micro news. Play 
on-screen games. Check sports 
results. Book travel and entertainment. 


Learn a language. 

The choice is simply vast. 

Plus, your Prism VTX 5000 
allows you to communicate directly 
with other Spectrum owners. 

And now, our s pecial offer means 
that you can do all this for just £ll*a 
month. So complete the coupon and 
send it to us today, and we will let you 
have full details of our unbeatable offer. 


Iht Aqc of the Train 


SINCLAIR PROGRAMS September 1984 





























exciting world 
s, facts & fun! 



Swapping 



Educational software 




Competitions 


Peripheral 

'' VTX5000 

of the Year. 




Telesoftware 



t - 1 -\ 

FOR JUST £ll*AMONTHYOUWILLGET: 

• A Prism VTX 5000 worth £99.95. 

• One year’s subscription to Prestel 
worth £20.00. 

• One year’s subscription to Micronet 
worth £32.00. 

• Free user-to-user software-normally 
retailing at£19.00. 

• Quarterly hardware and software offers. 

• Discounted software through Micronet 

I (up to 20% off retail prices). 


Prism Microproducts Ltd. 

Prism House, 18-29 Mora Street 
Citv Road, London EC1V 8BT. 

Tel: 01-253 2277 



Prestel and the Prestel symbol are trademarks of British Telecommunications. 


Please send me full information on your special offer SP9 | 
to Spectrum users. 

Name:___ 


Address: 


L. 


_I 
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-Are you being zapped by 
‘finger drift’? 

- Fed up with being eaten by 
monsters? 

- Put new life into your game and 

hit the right key every time with j 
the new ” 

GAMES BOARD 

Enjoy these great features: 

ft Instantly attached/detached 
ft Games board masks unwanted keys 
ft Improves scores up to 50% 
ft Compatible with all games and software 
ft Can be used with joysticks for even faster control 
ft Can be used with all hardware add-ons 
ft Ideal for young children 
ft Keys can be inserted in any position 
ft 10 keys supplied. Full set of keys a vaitable with the 
add-on kit Patents pending 





All this and more for just £9.95 
From your local computer shop or direct from: 

MARVIC MARKETING LTD Telephone: 

FREEPOST (No stamp required) (\C-i QC/lOflifi 

Stretford, Manchester M32 8EL UO1 "OO^ 1 U 






The most powerful toolkit yet for ZX BASIC. All the features 
you will ever need: AUTO insert, full RENUMBER, block 
DELETE, CLOCK, ALARM, error trapping, break trapping. 
Full TRACE with single-step and much, much more. Makes 
ZX BASIC easy-to-use and powerful 


An excellent assembler, an advanced line-editor, a compre¬ 
hensive disassembler and a superb front panel' debugger 
all in one package. Used by many leading software houses to 
write their games. "Buy it!'' Adam Denning 1984. 

M9CAL £25 

A powerful and almost full implementation of Pascal - not a 
Tiny Pascal. A valuable educational and development tool, 
programs typically run 40 times faster than a BASIC equivalent. 
Spectrum version includes Turtle Graphics package. " / haven't 
seen any other compiler that could match Hisoft's Pascal" 




for the ZXSpectrum 

Hisoft is pleased to announce a new compiler for this popular 
and effective systems programming language. Not a tiny-C but 
an extensive, easy-to-use implementation of the language. 
Allows direct execution of compiled statements. Supplied with 
function library. Available direct from Hisoft for £25, or write 
for further details. 

All prices, UK delivered, relate to 48K ZX Spectrum versions. 
Our software is available for many other Z80 machines e.g. 
Amstrad CPC 464. MSX, Memotech, SHARP MZ700, New- 
Brain, CP/M etc. Please write for details. 
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FOLLOWER 


1 BEEP .1,41: SAVE "Follower" 
LINE 2: FOR n=30 TO 40: BEEP .1 

,n: NEXT n: GO TO 1 

2 RESTORE : BORDER O: PAPER 0 
: INK 7: CLS 

10 OVER 0: FOR N= USR "A" TO 
USR “D“+7 

20 READ A: POKE N,A: NEXT N 
30 DATA 1,1,1,1,1,1,1,235,128, 
128,128,128,128,128,128,255,255, 
1,1,1,1,1,1,1,255,128,128,128,12 
8,128,128,128 

40 PRINT AT 20,0; FLASH l;"Pr 
e*s any key to play 'Follower'" 

SO RESTORE 30: FOR Z“1 TO 17: 
READ A,B 

55 IF INKEY# <> "•• THEN GO 
TO 90 

60 IF Z/2= INT (Z/2) THEN PRI 
NT AT 5,7;" FOLLOWER": 
GO TO 70 


70 BEEP A,B: NEXT Z: GO TO 50 

80 DATA .5,13,.2,13,.2,8,.2,15 
,1,15,.3,20,.5,15,1,8,.3,15,.2,1 
5,.2,8,.2,15,1,13,.3,24,0,0,.2,2 
2 , 1,22 

90 DIM 0(10): DIM P(10) 

95 BORDER 1: PAPER 1: CLS 
100 FOR n=0 TO 254 STEP 16: PLO 
T n,0: DRAW 0,160: NEXT n 
110 FOR n=0 TO 168 STEP 16: PLO 
T 0,n: DRAW 240,0: NEXT n 
120 PRINT AT 0,0;" A B C D E F 
GHIJKLMNO" 

130 FOR N=2 TO 20 STEP 2: PRINT 
AT N,30+(N <> 20); OVER l;N/2: 
NEXT N 

140 FOR N=1 TO 10 
150 LET A=( INT ( RND *10))#2: 
LET B=< INT ( RND *15>>*2 
155 LET OA=A: LET OB=B 
160 OVER 1 
170 FOR G=1 TO N 
190 LET A=A+(< INT < RND *3>-l> 
* 2 ) 

200 LET B=B+<< INT ( RND *3)-l> 
* 2 ) 

210 IF A<2 THEN LET A=2 
220 IF A>20 THEN LET A-20 
230 IF B<0 THEN LET B-0 
240 IF B>28 THEN LET B=2B 
250 IF A=OA AND B=OB THEN GO T 
O 190 

255 PRINT INK C RND *4)+3; AT 
A.B:"( 2»ig8> AT A+l,B;"( 2»ig8) 

257 FOR D=1 TO 50: NEXT D 
238 PRINT AT A,B;"( 2»igB) "; AT 
A+l,B;"( 2»iq8> " 

259 LET 0(G)=A: LET P(G)=B 

260 NEXT G 

270 LET OA=A: LET OB=B 
280 NEXT G 

290 LET A=2: LET B=0: LET OA=*A: 
LET OB=B 
300 FOR G=1 TO N 
310 PRINT INK 6; AT A,B;"AB"; 
AT A+l,B;"CD" 

320 LET A=A+(< INKEY# ="6" AND 
A<20)-( INKEY# ="7" AND A>2>)*2: 

LET B=B+(( INKEY# = "8" AND B<28 
)-( INKEY# = "5" AND B>0>>*2 
330 PRINT AT OA,OB;"AB"; AT OA 
+1,0B;"CD" 

340 LET OB=B: LET OA=A 
350 IF INKEY# = CHR* 13 THEN 
GO TO 400 
370 GO TO 310 

400 IF A=0(G) AND B-P(G) THEN 
GO TO 450 

410 BEEP .5,14: BEEP .3,16: BEE 


P .5,12: BEEP .5,0: BEEP 2,7 
420 PRINT BRIGHT 1; OVER O; AT 
0,0;"WRONG - YOU SHOULD BE HERE 

430 PRINT AT 0<G>,P<G>;"#*"; A 
T 0(G)+1,P(B);“**“ 

440 FOR F-l TO 220: NEXT F: GO 
TO 1000 

450 BEEP .05, RND *60 
455 NEXT G 
460 NEXT N 

1000 BORDER 7: PAPER 7: INK 1: C 
LS 

1010 PRINT "You scored ";n;". Wh 

ich classes.you as:" 

1020 PRINT AT 3,10;"a pilchard. 
"; AT 7,10;"a prune."; AT 9,10;“ 
a Wally."; AT ll,10;"a Brian."; 
AT 13,10;"average.AT 15,10;"b 
etter than average."; AT 17,10;" 
good."; AT 19,10;"bri11iant."; A 
T 21,10;"a cheat." 

1030 IF n=6 THEN LET n-5 
1040 FOR t=5 TO 21 STEP 2: PRINT 
AT t,7; ">": FOR s=l TO 20: NEX 
T s: PRINT AT t,7j“>": NEXT t 

1050 IF RND >.4 THEN GO TO 104 

O 

1060 FOR t=5 TO <<n+2)*2>-l STEP 
2: PRINT AT t,7;">": FOR s=l T 
O 20: NEXT s: PRINT' AT t,7;“>": 
NEXT t 


D 




F OLLOW the sequence of squares 
as shown by the computer. A 
coloured square is moved round 
the grid and you must then position a 
cursor on each of the squares. When 
you are on a square indicated by the 
computer you should press ENTER. 
Use keys 5, 6, 7 and 8 to play. 

Follower was written for the 16K 
Spectrum by Steven Bennett of Lough¬ 
borough, Leics. 

1070 PRINT AT <(n+2>*2)-1,7;" > 

1080 INPUT "Do you want to play 
again? <Y/N>"; LINE t#: IF t*="y 
" OR t*="Y" THEN RUN 
1090 RESTORE 1090: FOR n«l TO 11 
: READ a,b: BEEP a,b: NEXT n 
1100 DATA .2,1,.09,-60,.1,-4,.1, 
-4,.1,-4,.4,-3,.58,-4,.1,-60,. 3, 
0,.09,-60,.2,1 
1110 OVER O: CLS 

1120 PLOT 10,10: DRAW 10,0: DRAW 
0,25, PI : DRAW 0,25, PI : DRAW 
-10,0: DRAW 0,-50 
1130 PLOT 50,10: DRAW 0,25: DRAW 
12,25: DRAW -12,-25: DRAW -12,2 
5 

1140 PLOT 70,10: DRAW 25,0: DRAW 
-25,0: DRAW 0,25: DRAW 20,0: DR 
AW -20,0: DRAW 0,25: DRAW 25,0 

1150 FOR n-1 TO 21: LET 1- USR 3 
582: NEXT n 

1160 BEEP .003,0: GO TO 1160 


i <=». Mm 


k 


pf 

I T IS growing dark, and you must 
make your way home across the 
maze-like paths of Nightmare 
Park. Many have entered the park and 
never returned, and those brave souls 
who have made their way through have 
told tales of being transported to other 


rem 00000000000000000000000 

SOTO 7000 

CLS 

LET DFaPEEK 16396+256*PEEK 


LET R*="042 013 064 017 033 
025 006 022 035 126 254 118 

009 079 167 237 082 121 119 

024 241 016 239 201" 

FOR As 16514 TO 16540 

POKE A, URL fl*< TO 3) 

LET A* “A*(5 TO I 
NEXT A 

LET ANSWER“0 
DIM M(20) 

FOR N“0 TO 21 
PRINT AT N,B, 


ft 




190 PRINT RT 5,3; 1 
^0 PRINT RT 4.3, 
jjSJl^PRINT RT 11,3 
^flWfilNT RT 12,3 
^30 PRINT RT 13,3 



240 PRINT RT 12,25,AT 13,25 
'250 PRINT RT 14,25;iRT 14,15 
'260 PRINT RT 15,15 


places where they have been faced by 
pits of lions, herds of stampeding ani¬ 
mals and other fearsome sights. If you 
dare enter the park, use cursor keys 5, 6, 
7 and 8 to move. 

Written for the 16K ZX-81 by James 
Harrower of Skelmersdale, Lancashire. 


i LET GOTOsINT (RND*5>*1 
i LET GOTO=GOTO*1000 
i GOTO GOTO 
I CLS 

i PRINT "INPUT THE ANSWER" 
l FOR N*1 TO 16 STEP 2 
I LET MlNl-INT <RND*8>»1 
I PRINT AT 10,N, M(N) 
i IP N <15 THEN PRINT RT 10,N* 

) LET ANSWER“ANSWER»M(N) 

I NEXT N 
I FOR N = 1 TO 55 
I NEXT N 

I PRINT RT 10,0," 

I INPUT A 

) IF fl“ANSWER THEN GOTO 1200 

> PRINT RT 0.0;"W R 0 N G . Y 
IRE DEAD" 

) FOR N*1 TO 40 

> NEXT N 
) GOTO 1 

> PRINT RT 0,0;"C 0 R R E C T 

> FOR N“1 TO 40 
) NEXT N 

> GOTO 30 


l NEXT N 
I LET fi.DF»625 
I POKE A.13 
I FOR N=1 TO 3 

( PRINT RT ■PHD* 17•+1, <RND*29 

"9!" 

I l IE XT N 
) POKE R,0 
) LET A*.INKEY* 

) IF R*“"8" THEN LET fl=R»l 
; IF PEEK A*123 THEN LET AaA- 


340 IF PEEK XX“128 THEN LET XX“ 

*350 IF A * a"6" THEN LET XX»XX+33 
360 IF PEEK XX.128 THEN LET XX= 

*370 IF R*="7" THEN LET XXaXX-33 
380 IF PEEK XXsl26 THEN LET XX“ 
XX+33 

3S5 IF XX“DF 4393 THEN GOTO 6000 
390 NEXT N 


IF PEEK A=136 THEN GOTO 250 


PRINT "YOU ARE DEAD" 
i FOR N»1 TO 45 
i NEXT N 
i GOTO 1 
i CLS 
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3215 LET y»y 

3220 LET X*X+2*lINKEY*="8" AND X 
<DP*163> -2*<INKEY$*"5" AND X>DF + 
134> 

3230 NEXT N 
3240 GOTO 3600 
3500 CLS 

3810 PRINT "YOU ARE DEAD" 

3820 FOR N=1 TO 45 
3530 NEXT N 
3540 GOTO 1 
3600 CLS 

3610 PRINT "UHRT SKILL- 
3620 POR N>1 TO 45 
3630 NEXT N 
3640 GOTO 30 
4000 CLS 

4010 PRINT "INPUT THE DEN YOU TH 
INK THE LIONS RPE NOT IN." 

4020 LET CH=INT (RND«3)*1 
4030 FOR N>8 TO 12 
4015 PRINT^RT N . 3 " MBW AT N.9 
4^^^N§XT N' 

4060 INPIJT C 

4065 IF 0=4 THEN GOTO 4060 
4070 FOR N=S TO 12 
4030 PRINT RT N.3. " 

4090 IF N v = 10 AND CH = 1 THEN PRIN 
T RT N.3;"LION" 

4100 NEXT N 

4110 FOR N=8 TO 12 

4120 PRINT RT N,9. " 

4130 IF N >»10 RND CH«2 THEN PRIN 
T RT N,9j"LION" 

4140 NEXT N 

4150 FOR N-6 TO 12 

4160 PRINT RT N,15. " 

4170 IF Ni=10 RND CH=3 THEN PRIN 
T RT N,15,"LION" 

4180 NEXT N 

4190 IF C«CH THEN GOTO 4500 
4200 CLS 

4210 PRINT "YOU HRUE BEEN SAUED" 

4220 FOR N=1 TO 45 

4230 NEXT N 

4240 GOTO 80 

4500 CLS 

4510 PRINT "YOU HRUE BEEN ERTEN 
BY THE LIONS" 

4520 FOR N = 1 TO 45 
4530 NEXT N 
4540 GOTO 1 
5000 CLS 

5010 PRINT RT 0.0."FIND THE RIGH 
T KEY ifl -21 BEFORE YOU GET CRUSH 
ED.URTCH THE SCREENTO SEE UHRT K 
EY TO PRESS." 

5015 FOR N =1 TO 10 

5016 NEXT N 

5020 LET KEY*INT iRND*25> »38 

5021 LET Z1=INT iRND*18)*3 

5022 LET 22=RND*31 

5025 PRINT RT 21,22,CHR* KEY 

5026 PRINT RT 21,22;" “ 

5030 LET TI-2 

5039 PRINT RT 21,15."$._ 

gMg PRINT.. RT. TI. O WW—i 


5050 IF INKEY$=CHR$ KEY THEN GOT 
0 5100 

5065 IF TI*21 THEN GOTO 5500 
5070 LET TI=TI♦1 
5080 GOTO 5040 
5100 CLS 

5110 PRINT RT 0,0,"YOU UERE LUCK 

Y" 

5120 FOR N=1 TO 45 
5130 NEXT N 
5140 GOTO 80 

5500 CLS 

5501 PRINT "YOU HRUE BEEN CRUSHE 
D" 

5510 FOR N*1 TO 45 
5520 NEXT N 
5530 GOTO 1 
6000 CLS 

6010 PRINT RT 0.5;"PRRK RUENUE" 
6020 PRINT RT 2,0;"YOU RRE fl UER 
Y CLEUER PERSON YOU HRUE GOT THO 
UGH THE PARK." 

6O30 PRINT RT 5,0,"DO YOU URNT T 
0 PLRY RGRIN (Y/N) " 

6040 IF INKEY$ = "Y" THEN GOTO 3 
6050 IF INKEY*="N" THEN STOP 
6060 GOTO 6040 
7000 CLS 

7010 PRINT RT 0.5:"PRRK RUENUE" 
7020 PRINT RT 2,0;"YOU ARE IN R 
PRRK RND YOU HUST TRY TO GET THO 
UGH THE PRRK.BUT ON THE URY YOU 
HRUE TO PASS SOME OBSTACLES.YOU 
COHPLETE THESE TO GET THOUGH THE 
PARK.IF YOU DONT THEN YOU GET T 
HOUGH THE OBSTACLE THEN YOU ARE 
BACK TO THE BEGINNING OF THE PAR 

7030 PRINT RT 12,0;"YOU USE THE 
CURSOR KEYS TO HOUE IN ALL THE 0 
BSTACLES AND IN THE PARK." 

7O40 PRINT RT 17,0;"DO YOU URNT 
TO PLRY (Y/N)." 

7050 IF INKEY$="Y" THEN GOTO 3 
7055 IF INKEY$ = "N" THEN STOP 
7060 GOTO 7050 

9997 STOP 

9998 SAVE "PARgi" 

9999 PUN 




ONCE AGAIN AT ALLY PALLY 
SEPTEMBER 8th 1984 


FEATURING A GALAXY OF EXHIBITORS 
WITH SPECIAL OFFERS AT THE SHOW! 


SEE THE MIGHTY KINGDOM OF SOFTWARE! 

THRILL TO THE COMPOTER HARDWARE! 

GASP AT THE RANGE OF ADD-ONS, BOOKS, PERIPHERALS! 
WITNESS THE OUTSTANDING FEATS OF THE QL, SPECTRUM AND ZX81! 

One Day Only! Don’t Miss It! 

Only £1.25 (Adults) 60p (Kids) 



r send now foVreduced-price advsncTtTcketsJ 


L 


Post today and you can have Advance tickets at £1 (Adults) and SOp (Kids). Please include a stamped addressed envelope with your reply and make cheqoes/PO's payable to ZX Microfair. 


Name.... 

Address:. 


Please send me.advance tickets <g> £1.00 

Please send me.. advance tickets © £0.S0p 

Post to Hike Johnston, ZX Microfair, 71 Park Lane Tottenham, London N17 0H6. 

EXHIBITORS! Phone Hike Johnston on 61-801S172 for details and availability of stands at the show! 



at Ally Pally on 
8th September 1984 
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Das Program 
ist kaput 


T HE improvements to 
Sinclair Programs 
continue this month 
with the addition of Pro- 
Printout. Each month Sin¬ 
clair Programs will publish a 
program listing which is pro¬ 
fessional in both style and 
content. 

These programs have been 
commissioned from the au¬ 
thors of the best and most 
successful programs printed 
in Sinclair Programs last year. 
First program to be printed 
in the Pro-Printout series is 
For Love by Mark Chap¬ 
man. For Love is a complete 
adventure set in a large man¬ 
sion from which the player 
must escape. It contains a 
large number of locations and 
problems so that even exper¬ 
ienced players with the list¬ 
ing in front of them will find 
this a difficult game to com¬ 
plete. 

Once you have completed 
the adventure, the listing of 
For Love shows how adven¬ 
ture games of your own can 
be developed. Some features 
included within the game are: 
a help option, a time limit, 
and a limit to the amount of 
directions in which a player 
can move without certain ob¬ 
jects. 

ZX-81 owners will see that 
Sinclair Programs contains 
fewer programs for their ma¬ 
chine than usual. This 
change does not reflect a 
change in our commitment to 
the ZX-81, but a lack of re¬ 
sponse from ZX-81 owners. 
Programs printed in the mag¬ 
azine are those submitted by 
readers, and when we do not 
receive ZX-81 programs we 
have no choice but to devote 
more space to the Spectrum. 

If you would like to submit 
a program to Sinclair Pro¬ 
grams please complete the 
form below and sent it, 
together with cassette and ac¬ 
companying letter, to the ad¬ 
dress given. We pay for each 
program published. 


HAVING recently acquired a 
second-hand Spectrum, I 
have very belatedly also come 
into possession of the Octo¬ 
ber 1983 edition of your mag¬ 
azine. I was very interested to 
see the German Tester pro¬ 
gram on page 33. It is a very 
good idea, but what a pity it 
is marred by so many mis¬ 
takes. 

The two biggest howlers 
are in line 250, where the 
example for indicating an 
umlauted vowel is based on 
an e, whereas only a, o and u 
are ever umlauted; and in 
lines 1010 and 1510, where 
the omission of one word 
from each list means that 
“der Apotheker” (chemist) is 
translated as “apple tart”. 
There are several other spell¬ 
ing mistakes, both in the 
English and German data 
lists. 

Since the correct use of 
capital letters is essential in 
the German language, I have 
entered all the data in capital 
and lower case, instead of in 
capitals only. It is then neces¬ 
sary to delete POKE 23658,8 
from line 460. 

Instead of the awkward ar¬ 
rangement for denoting um¬ 
lauts, I have made use of 
user-defined graphics for this 
purpose, thus: 

35 GOSUB 799 
240. . . ” ’ “To represent an 
umlaut, for lower” ’ “case 
letters use GRAPHICS 
mode” ’ “of the letter to be 
modified.” ’ “For capitals: 
GRAPHICS B = B 


GRAPHICS C = C 
GRAPHICS D = D” 

799 REM UMLAUT ROU¬ 
TINE 

800 FOR x=USR “a” TO 
USR “d” + 7:READ a: 
POKE x,a: NEXT x 

810 FOR x = USR “o” TO 
USR “o” + 7:READ a: 
POKE o,a: NEXT x 
820 FOR x = USR “u” TO 
USR “o” + 7:READ a: 
POKE u,a: NEXT x 
825 RETURN 
830 DATA 36, 0, 56, 4, 60, 
68, 58, 0 

840 DATA 36, 60, 66, 66, 
126, 66, 66,0 

850 DATA 36, 60, 66, 66, 
66, 66, 60, 0 

860 DATA 36, 66, 66, 66, 
66, 66, 60, 0 

870 DATA 36,0, 24, 36, 36, 
36, 24, 0 

880 DATA 36, 0, 36, 36, 36, 
36, 24, 0 

No doubt it can be done 
more simply, but I am only a 
beginner. There remains the 
problem of a computer which 
is too stupid to understand 
that there is more than one 
answer to the majority of 
translation questions. 

Peter Beale, 
Bulford, Salisbury. 

Jet Set end 

I AM writing to inform you 
that I have finally finished 
Jet Set Willy, collecting 83 
objects through 60 stages. 
When you reach the bed¬ 
room, Willy walks auto¬ 
matically from the bedroom 
to the bathroom and then 


sticks his head in the toilet, 
wagging his legs in the air. 
The sound continues and, 
believe it or not, that is all 
that happens. 

John Shields, 
Hayes, Middlesex. 

K-Tel program 

THANK YOU very much 
for the copy of the review of 
our Spectrum game Sor¬ 
cery, appearing in your July 
edition. I would also like to 
extend my thanks for your 
review of It’s Only Rock ‘n’ 
Roll. However, I am at pains 
to point out that I believe this 
release is accredited to K-Tel 
and not Virgin. 

Jeremy Cook, 
Commercial Director, 
Virgin Games 

Sabre Wulf 

I HEREBY state that I be¬ 
lieve myself to be the first 
person to complete Sabre 
Wulf from Ultimate Play the 
Game. With a score of 112 
820 on July 7th, 1984 I col¬ 
lected all four pieces of the 
amulet and entered the cave. 
I finished with 8 lives re¬ 
maining, and 72%. 

The way to complete this 
game is to make a map of all 
256 screens, and mark all 
clearings where the amulet 
could be. Clearings with huts 
count. I found 32 such clear¬ 
ings, including the start and 
an odd-shaped clearing near 
the start. Then visit each of 
the clearings in turn, and 
hope for some luck. 

If you have not bought this 
game then do so, for it is 
another winner from Ulti¬ 
mate. 

James Sheahan, 
Camberley, Surrey. 


I Please complete this form and enclose it with any program | 
| which you send to us for possible publication. I 

| To: Sinclair Programs, 67 Clerkenwell Road, London EC1R 5BH I 

| I enclose.Program(s) for the.computer. | 

| I guarantee that each programme submitted is my own original work. | 

| Signed. | 

Name. . 

1 Address. 
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_ VofftTkuru. _ 

Can your Spectrum 
teach you anything? 


T HE SPECTRUM has great po¬ 
tential as an educational ma¬ 
chine. When programmed 
correctly it knows all the right answers, 
it is never impatient and it combines the 
fun of a games computer with serious 
lessons. It is, therefore, not surprising 
that more and more educational pro¬ 
grams are being produced. 

The problem, for teachers and pu¬ 
pils, is that these programs are, in many 
cases, being produced for the wrong 
reasons. Some manufacturers believe 
that the current enthusiasm for com¬ 
puter games cannot last, and that when 
the last games company goes under the 
educational companies will be selling 
more than ever before. Other manufac¬ 
turers believe that the Spectrum will 
sell better and that they, therefore, will 
have a wider market, if parents see it as 
an educational machine which will be 
good for their children. 

Software written for these reasons, 
rather than by teachers who need it, 
suffers from various flaws. Simple 
games such as Hangman, which would 
no longer sell in their own right, are 
marketed under the dubious claim that 
they are educational. Programs are pre¬ 
sented as being suitable for young chil¬ 
dren simply because older children find 
them boring. There is a general inabil¬ 
ity to understand how children learn, 
and what they are capable of doing at 
different ages. 

Higher standards 

At the other end of the educational 
range the standard is much higher. Pro¬ 
grams aimed at O-level and A-level 
students achieve their aims well, and 
the programmers seem to have a much 
clearer idea of what they are doing. 
General interest educational programs, 
that is those aimed not at pupils but at 
those studying a subject by choice, are 
also of a high standard, perhaps because 
they are written by people who are, 
themselves, enthusiasts. 

The Clever Clogs range of pro¬ 
grams is produced by Argus Press Soft¬ 
ware for children aged from three to ten 
years old. Shipshapes is aimed at chil¬ 
dren from three upwards and is intend¬ 
ed to teach shape recognition to this age 
group. 

There are some points which even 


What can we learn from 
the Spectrum? We re¬ 
view the educational 
software on the mar¬ 
ket;_ 

those who have not met a three year-old 
since they were three themselves would 
consider essential to a program catering 
for this age group. Do not include long 
words. In fact, do not include words at 
all, as the vast majority of three year 
olds cannot read. Error trap the pro¬ 
gram so that pressing the wrong key 
does not result in the program stopping, 
or in an unexpected result. Make all 
shapes bright and bold, and avoid con¬ 
fusing ambiguities. 



SHIPSHAPES 

for age 3 + 


See and understand 
SHAPES with 5 great 



Shipshapes falls down on every one 
of these points. For a start, there are a 
large amount of written instructions, 
including words such as “rectangle”. 
Glaringly obvious at the beginning of 
the program is “Let’s”, written without 
the apostrophe. The program is in Ba¬ 
sic, and is not error-trapped, so pressing 
the wrong keys could quickly break a 
child out of the program. When shapes 
do appear to be identified they are very 
small, and so arranged that it is not 
immediately clear whether you are sup¬ 
posed to be identifying these small 
shapes, or the pattern which they are 
forming. 

Next from Clever Clogs is Sam 
Safety, for children aged five and up¬ 


ward. This program is designed to teach 
road safety. The aim is to guide your 
character around town, crossing roads 
safely, and picking up prizes where 
possible. To keep your prize you must 
identify a road sign correctly. The ani¬ 
mation makes this an enjoyable way of 



learning road safety, although it is ex¬ 
tremely slow and the machine-code ac¬ 
tion promised on the cover fails to 
materialise. It would be important, 
though, to impress upon children that 
the aerial views shown on screen should 
be identified with real traffic lights, 
subways and bridges. 

Pitched too high 

The questions on road signs appear 
to be pitched at a rather older age group 
than 5 +, for knowledge of road signs is 
likely to be of little use to children until 
they can ride bicycles on the road. The 
way in which the questions are pre¬ 
sented is probably not the best way of 
teaching recognition of these signs.’ 
Multiple choice questions are fair 
enough, but when some of the answers 
are amusing, it is all too easy to remem¬ 
ber the wrong, but amusing answer, and 
forget the correct answer. 

Music, also in the Clever Clogs 
range, is aimed at seven year olds and 
over. It falls down, as do all music 
programs for the Spectrum, firstly be¬ 
cause the Spectrum’s BEEPs have very 
little to do with good music and, sec¬ 
ondly, because the Spectrum keyboard 
is not sufficiently like that of a piano to 
make simulation practicable. The pro¬ 
gram allows tunes to be played or com¬ 
posed, but all but the most enthusiastic 
computer users would learn more by 
spending time with a tin whistle and 
manuscript paper. 

Blockbluster, which is aimed at 
children of seven upwards, is the most 
enjoyable program in the Clever Clogs 
range. A variety of different shapes are 
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displayed on the screen, and these must 
be put together to form a rectangle. 
Shapes can either be placed as they are, 
reversed or turned around. 

Children can also complete a simple 
general knowledge test in order to see a 
possible solution to the puzzle. Strange¬ 
ly, the questions used in this test seem 
to be aimed at children of a lower age 
than those who will be reading the 
instructions for the program. Children 
who can read words such as “initial” in 
the program introduction are likely to 
have little difficulty in answering ques¬ 
tions such as “2 + 2+1”. 

Fun to Learn is produced by Shards 
Software for children aged between 6 
and twelve. It is menu-driven, and di¬ 
vided into five different sections. The 
first provides a series of letters to be 
counted, the second produces an ana¬ 
gram to be unscrambled, the third per¬ 
forms simple calculations, the fourth is 
a form of hangman, and the fifth a 
codebreaker game. 

Very slow-moving 

The program as a whole is very slow- 
moving, and demands that the user 
press keys frequently. The graphics are 
very limited. More importantly, each 
section is a simple program, none of 
which is particularly well presented. 
The worst presented is the calculator 
section, in which very simple calcula¬ 
tions are presented in a long winded and 
unconventional way which would prob- 
ably confuse most children. _ 





Thtt : ... 

HISTORY 
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Fractions 1 from Kemsoft forms an 
introduction to the learning of fractions. 
It explains fractions clearly, if rather 
briefly, and then moves on to worked 
examples and test questions illustrated 
by clear graphics. The program is 
clearly designed to be used at home or 
in a classroom where there is a teacher 
or parent present to help in cases of 
confusion. Again, the program is slow- 
moving, especially in the production of 
graphics. It is also written in Basic, and 
therefore easy for a pupil to break into 


or stop. 

Penguin Study Software produce a 
range of programs for studying the 
Shakespearean plays. These must be 
used in conjunction with a copy of the 
plays in book form, and form a large 
data base in which various sections can 
be cross-referenced. In each program 
there are a largo number of headings, 
covering both characters and themes 
within the play, which can be used. 

Under each heading are a group of 
references to the play, and comments 
upon it. Information provided can be 
combined by the user in a variety of 
different ways, to show interrelation¬ 
ships between characters and themes 


which would not normally be obvious. 

This range of cassettes make excel¬ 
lent use of the Spectrum as database, 
and would provide opportunity for 
study at home for those studying Shake¬ 
speare for O or A level. They provide 
clear, precise help in essay writing, 
without acting as a crib. 

While many educational programs 
are aimed at those in schools or colleges, 
a significant amount of them are aimed 
at enthusiasts who wish to study a 
subject in their spare time. An example 
of this is The Complete Machine 
Code Tutor, which is produced by 
New Generation Software. The two 
cassettes contained in this package have 
different programs on each side, and are 
subdivided into a series of lessons de¬ 
signed to teach machine code to com¬ 
plete beginners. 

Each lesson contains text covering 
one area of machine code, and then a 
worked example which can be viewed as 
many times as the student wishes and 
also changed by the student in order to 
check that the concept explained has 
been fully understood. 

Machine code is a difficult subject 
which cannot be learned in the abstract, 
as trying out examples at every stage is 


essential. For this reason the Machine 
Code Tutor is good, for it takes the 
student steadily through a course. 

Despite the importance of worked 
examples, there is also a very large 
amount of text to be studied in any 
machine code course. None but the 
most enthusiastic computer buffs can 
claim to enjoy reading large amounts of 
text from the Spectrum screen, but 
reading from the screen is just what you 
are required to do in this program. It is 
to be hoped that later editions of the 
Machine Code Tutor will contain an 
accompanying booklet, which can be 
studied in conjunction with the infor¬ 
mation displayed on screen. 


Now I will show you my 

NRG IC 




They are magic because I can 



I have filled them 3/7 full. 

PRESS ENTER TO CONTINUE 
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Careful planning produces 
well-structured programs 


T HE FIRST article in this series 
highlighted some of the prob¬ 
lems which the new program¬ 
mer will experience in the vitally 
important planning stage of program 
writing. A few suggestions were made 
about the use of “flowcharts” and 
“pseudo-code” to help you to bridge the 
formidable gulf between concept and 
program. 

If you are still the unconverted type 
who cannot resist the temptation to 
start keying-in code on impulse then 
read on, and lock away your computer if 
necessary. This is much more about 
pencil, paper and common sense than 
computing until we reach the stage of 
trying a worked example. It is never too 
late to return to basics and reappraise 
your methodology. 

A definition of a structured program 
is one which has a clearly visible struc¬ 
ture which relates closely to the prob¬ 
lem which the program is intended to 
solve. The validity of the definition is 
self-evident: if the program does not 
solve the appropriate problems then the 
reasons will be more apparent in a 
structured program than they would be 
in an amorphous one. This really goes 
to the heart of the problem as testing, 
de-bugging and development are made 
much more easy if you follow the rules 
set out below. 


The first stage in writing a program 
is problem specification. Write down as 
briefly as possible what you want your 
end result to be, and how you intend to 


1.80 REM SETUP 
185 LET O-PI/PI 
U0 LET Z-PI-PI 
U5 LET SC-Z 
120 LET BB-UAL "14" 

200 REM PROORM MRNRGEMENT RND B 

RLL control 

210 TOR N-0 TO URL "10" 

215 LET BA-INT (RNDtUAL 29")*0 
220 FOR Y-0 TO URL "20" 

225 CLS 

226 PRINT RT Y,BR,"0" 

230 QOSUB URL "300" 

236 PRINT RT Y,BRi" " 

240 NEXT Y 

245 IF BA-BB+O THEN LET SC-SC+G 
250 NEXT N 

2S5 PRINT "SCORE- ";SC;"/10 8RL 
LS" 

260 GOTO URL "400" 

300 REM BUCKET 

305 PRINT RT URL "21",BB." 

310 IF INKEY>*"1" RND BB>Z THEN 
LET BB-BB-0 

320 IF INKEY(-"0" RND BB <UAL "2 
9" THEN LET B6-BB+0 
325 PRINT RT URL "81",BB."UJ" 
330 RETURN 
400 REM GRME END 
410 PRINT RT 0.0,"UOULD YOU LIK 
E ANOTHER GOT" 

420 PAUSE 4E4 

430 IF INKEYt-"Y" THEN GOTO 100 
440 IF INKEY|*"N" THEN STOP 
450 GOTO 410 


The most difficult work 
on a program should be 
completed before you 
touch your micro. Tony 
Rickwood explains 
why this is. 

achieve this. Think about what you 
have written for a while. It may be that 
you will arrive at a better solution, or 
that you will change your mind about 
the end result. 

Stage two involves dividing your pro¬ 
gram into distinct and manageable parts 
so that you can begin to think about 
detail. A breakdown into “modules” 
describes this well because we can imag¬ 
ine ourselves constructing the building 
blocks to be assembled later. For 
example, a breakdown of an arcade 
game of the conventional player versus 
computer type could be: 
a Introduction and instructions 
b Screen/variables set-up 
c Program management 
d Player control routines) 
e Computer control routinefs) 
d Game/end continuation 

Do not pay too much attention to the 
order in which I have arranged these 
modules. They do follow a “beginning 
to end” pattern, of course, although 
your priorities for order of development 
may be quite different. 

The third stage is program break¬ 
down. Now that you are descending 
from your bird’s eye view, take each 
module in turn and list the procedures 
and routines to be used. We are not 
particularly concerned with identifica¬ 
tion of individual sub-routines at this 
point, although it may well be that some 
modules will represent self-contained 
sub-routines in the final configuration, 
but only with the elemental tasks to be 
accommodated. For example, module b 
taken a stage further might look like 
this: 

a Set up screen colours 
b Clear screen 
c Initialize variables 
d Print graphics 

Stage four entails programming in 
words. We are still not programming in 
the sense of using either machine and/or 
language orientated commands, al¬ 
though we can, if we wish, use those 


which can be widely interpreted. If you 
like jargon then it is this “programming 
in words” which has previously been 
referred to as “pseudo code”. To abbre¬ 
viate the procedures which you are 
describing at this point, it is worth 
listing the variables and their meanings. 
Good housekeeping, particularly where 
variable names are concerned, from this 
point onwards, will save you many 
problems later. 


08 m "s?hb 4? ge£D u g*= for 

n*0 TO 7: READ xs POKE USR a*+n, 
x: NEXT m NEXT y 
130 DATA "a",192,192,192,192,1V 
2,192,255,255 

135 DATA "b",0,0,0,0,0,0,255,25 
5 

140 DATA "c",3,3,3,3,3,3,255,25 
5 

145 DATA "d",60,126,255,255,255 
,255,126,60 

148 BORDER Is PAPER 5: INK 0: C 
LS 

150 PRINT AT 0,10;"( iC;lqB;iA;i 

q8:IT;iqBi1C;iq8:1H) .Use keys 

1 and 0 to move bucket left and 
right and see how many balls yo 
u can catch (out of 10)" 

155 INPUT "Difficulty (1 = hard 
:10 = easy)?“;d 

160 IF d<1 OR d>10 THEN GO TO 
155 

165 LET score=0: LET a*= "ABC ": 
LET bb=14 

180 CLS : PRINT AT 0,0; PAPER 6 
;"SCORE “jAT 0,21;"BALL NO. 

190 PRINT AT 21,bb;af 
200 REM Module 2 - Program Mana 
gement 

210 FOR n-1 TO 10 

215 LET ba=INT (RND*29)+1 

220 PRINT PAPER 6;AT 0,30;n 

225 FOR y-1 TO 20 

230 GO SUB 300 

235 GO SUB 400 

240 NEXT y 

245 IF ba=bb+l THEN LET scars- 
score+1: FOR x=60 TO 0 STEP -1; 
BEEP .01,x; NEXT x 
250 PRINT PAPER 6;AT 0,7;score 
255 NEXT n 
260 GO TO 500 
300 REM Module3-Bucket 
302 IF NOT INKEY*="0" AND NOT I 
NKEY*-"1“ THEN RETURN 
305 PRINT AT 21,bb;" 

310 IF INKEY*="1" AND bb>0 THEN 
LET bb“bb-l 

320 IF INKEY*="0" AND bb<29 THE 
N LET bb-bbf-l 
325 PRINT AT 21,bb:at 
330 RETURN 

400 REM Module 4 - Ball 
410 PRINT AT y,ba;"fi" 

415 BEEP d/100,y 
420 PRINT AT y,ba;“ " 

430 RETURN 

500 REM Module 5 - end 
510 PRINT;"Would you like an 
other go?": PAUSE O 
520 IF INKEY*="y" THEN GO TO 1 
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Again, taking our set-up module to 
stage four, our program in words might 
look something like this: 

Set up user-defined graphics 
Clear screen 

Set up M,N co-ordinates (player) 

Set up P,Q co-ordinates (computer) 
Jump to program management module 
(PROG MAN) 

The variable list and labels used to 
identify modules such as PROG MAN 
will remove the need for the comments 
included in brackets. 

It may help you to follow a few 
guidelines to implement this stage: 

1. There should normally be a one to 
one relationship between these PAS- 
CAL-like statements and the statements 
in the particular high-level language 
(e.g. Basic) to be used. 

2. Use “Call (module label)” rather 
than GOSUB, and “Jump to (module 
label)” rather than GOTO. 

3. For a loop terminated by a condition¬ 
al GO TO, use “Repeat” at beginning 
of loop and “Until (condition)” at loop 
end. Use FOR and NEXT for a specific 
number of repetitions. Indent the state¬ 
ments between loop start and loop end. 

4. IF. . .THEN. . .is also almost uni¬ 
versal, though the condition to be test¬ 
ed, and the result, can be described 
more intelligibly than they would be 
within a program. 

5. No need to use LET as, for example, 
z = z+l would be more universal. 

Finally you are ready to start pro¬ 
gramming. You may be wondering 
what has happened to the dreaded flow¬ 
chart. You will be pleased to learn that 
you will not need to draw one. If you 
have carried out stage four thoroughly 
you would be wasting time by drawing 
the logic which has been adequately 
described in words. Armed with your 
“program in words” you should not 
have too many problems in keying-in 
code directly, assuming that you are 
reasonably familiar with your machine 
and its Basic commands and functions. 

One last piece of advice before the 
worked example. Having descended 
from top to bottom, through the four 
stages, go back through stages two, 
three and four to ensure that there is no 
overlap between modules. If several of 
them contain similar procedures then 
you can save time and RAM by incorpo¬ 
rating them into a different module. 

Problem Specification 
The player is to control the position of a 
“bucket” (graphics A, B and C for 
Spectrum and graphics W, 6 and Q for 
ZX-81). The computer will drop balls 
from a random x co-ordinate at the top 
of the screen. Graphic D is to be used 


(plDgla/rL Tutoi. 


for the ball on the Spectrum and “O” 
on the ZX-81. Score is reported as the 
number of catches out of 10. Game 
terminates or continues in response to 
“Another Go?” prompt. Keys 0 and 1 
are to be used for control. Note: to 
avoid repeatedly referring to the two 
machines I have used ***** to denote 
Spectrum only. 

Program breakdown 

1 Set up 

2 Program management 

3 Bucket control — player 

4 Ball control — computer 

5 Game end/continuation 

The order for module analysis will be 
1,3,4,2,5. 

Module breakdown 

Set up: 

a Set up graphics 
b Set up colours* 
c Clear screen 
d Title and instructions* 
e Input difficulty* 
f Initialize variables 
g Print graphics 
Bucket: 

a Erase “old” bucket 
b Scan keyboard 
c Draw “new” bucket 
Ball: 

a Print “new” ball 
b Time delay (difficulty)* 
c Erase “old” ball 
Prog Man: 

a Randomize ball position 
b Call bucket 
c Call Ball x 20 rows 
d Check if ball in bucket 
e Update score 
Repeat a to e for ten balls 
Game End: 
a Offer another go 
b Restart if wanted 
c Otherwise stop 
Program in words 
Firstly, variables summary 
Graphics as stated 
bb=x co-ordinate of bucket 
ba=x co-ordinate of ball 
a$=ga + gb+gc* 
d=difficulty (1 to 10) 
n = ball number (1 to 10) 
y=row number (0 to 20) 
score (sc for ZX-81) 

O = PI/PI =1 to save RAM - ZX-81 
only 

Z=PI-PI = 0 to save RAM - ZX-81 
only 
Set up: 

Set up user-defined graphics* 

Set border, screen, ink* 

Print title and instructions* 

Input d* 

Score=0, a$ = ga + gb + gc,bb= 14* 

Print score, level, ball number* 


Bucket: 

IF (not keys 1 or 0) THEN return* 
Erase a$ 

IF (Key 1 and bb) LH border THEN 
bb = bb-1 

IF (Key 0 and bb) RH border THEN 
bb = bb +1 

PRINT a$ (gw, g6, gq for ZX-81) 

Ball: 

PRINT gd (“O” for ZX-81) 

Time delay on d (BEEP)* 

Erase gd 
Prog Man: 

For n= 1 TO 10 

ba=random column number 

Print n 

FOR y= 1 to 20 
call BUCKET 
call BALL 
NEXTy 

IF ba = bb+ 1 THEN score=score +1 
Print score 
NEXT n 
Game End: 

“Do you want another go?” 

Repeat 

Scan keyboard 
If “n” THEN STOP 
Until “y” 

Jump to SET UP 
(after UDG set up)* 

The Basic code for this program is 
shown in figures one and two for Spec¬ 
trum and ZX-81 respectively. 

Note how line numbers have been 
grouped to suit the module numbers 
e.g. lines 200 to 299 have been reserved 
for PROG MAN code. This explains 
why I kept my original module number¬ 
ing: the program listing is always easier 
to follow if you place the PROG MAN 
module immediately after SET UP, 
though it was easier to develop BUCK¬ 
ET and BALL first. It also eliminated 
the jump that would be necessary if the 
coding followed the order of develop¬ 
ment, for if module two became module 
four, then module one would contain a 
GOTO 400. 

Incidentally, if you are planning a much 
bigger program then reserve line num¬ 
bers by the thousand. Your program 
will not occupy more memory if it uses 
bigger line numbers. 

A couple of points for ZX-81 users: 

1) The missing conditional return from 
BUCKET if no key is pressed (see stage 
four) is cosmetic insofar as it only stops 
the bucket flashing when the player is 
not moving it. 

2) I have amalgamated BALL with 
PROG MAN to save memory and to 
improve efficiency by eliminating a 
GOSUB. Unlike the Spectrum appli¬ 
cation you have no time delay related to 
level of difficulty. 
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Hero forced to watery 
grave by evil bubbles 


ZX-81 owners were 
astonished by the 
high-res graphics in 
Forty Niner. Rocket 
Man takes the ZX-81 
one step further. 


V ERY, very rarely a product ap¬ 
pears on the software market 
which is an absolute must for 
everyone who can use it. The Hobbit 
was one such program, Jet Set Willy 
was another. Until now, though, ZX-81 
owners have had to sit on the sidelines 
and try not to be too disappointed with 
the programs produced. Now Software 
Farm have produced Rocket Man; 
complete with high-resolution graphics, 
animated characters and multiple levels. 
Eat your heart out. Spectrum users. 

The graphics are astounding. “Why 
are you running the Spectrum on a 
black and white television?” was the 
question asked of the Sinclair Programs 
reviewer while Rocket Man was run¬ 
ning. 

The game involves collecting fuel 
packs from the various platforms on the 
right of the screen by running, climbing 
and jumping. When sufficient have 
been collected you can jump into your 
rocket and jet to the left of the screen 
where there are diamonds to be collect¬ 
ed. The main problem is the bouncing 
balloon which chases you, with the sole 
intention of drowning you in the sea 
below. Once all the diamonds have been 
collected it is possible to move onto the 
next level. 

If you only buy one ZX-81 program 
in your life, this is the one to choose. 
Rocket Man is produced by Software 
Farm, 155 Whiteladies Road, Clifton, 
Bristol BS8 2RG and costs £5.95. 

Match Point 

THE PSION sales team have a problem 
to combat with Match Point, which 
has nothing to do with the quality of the 
program. It is simply that, until now, 
tennis programs on the Spectrum have 
been very bad and experience leads 
Spectrum owners to be wary. 

These fears, though, are totally un¬ 
justified. Match Point is an excellent 
game which puts most sport simulations 


into the shade, and places other tennis 
simulations firmly at the bottom of a 
large scrap heap. 

The animation is excellent, and an 
extra dimension is added by a shadow 
beneath the tennis ball. Flicker-free 
characters move smoothly across the 
screen, and the only flaws in the realism 
occur when players are changing ends 



of court, a process which is best passed 
over as quickly as possible. 


Options allow you to play in the 
quarter-finals, semi-finals or finals at 
Wimbledon, and long hours of practice 
will be needed before any player beats 
the computer in the final. Forehands, 
backhands, carefully angled shots and 
speed are all present as they would be in 
a real game. 

Definitely another winner for Psion, 
Match Point is marketed by Sinclair 
Research Ltd and costs £7.95. 

Cavelon 

WHEN WILL we see the end of the 
maze game? Surely, by now, every con¬ 
ceivable way of moving around a maze, 
avoiding some things, and collecting 
others has been tried. The graphics 
change, the game remains the same. 

Cavelon sees a knight wandering 
around a six-level castle, avoiding other 
knights who shoot to kill and collecting 
fragments of the doors through which 
escape can be made to other levels. In 
case of emergency, grasping the sword 
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Excalibur will kill all knights on screen 
for a limited period of time but, of 
course, this option is not available all 
the time. 

Cavelon is welLproduced, difficult 
and challenging. However, buried in 
your software collection you probably 
already have several games very like it. 

Produced by Ocean Software Ltd, 
Ralli Building, Stanley Street, Man¬ 
chester; cost £5.90. 

Star Trader 

IN MANY games there are sections of 
the action on which players do not wish 
to spend too much time. Star Trader 
from Bug-Byte fails to recognise this. So 
much time is spent eating, sleeping, 
buying food and staring out of your 
window as you travel through space, 
that it is hard to summon enthusiasm 
for any aspect of the game. 

Star Trader casts the player as a 
merchant trading between planets. 
Goods can be bought on one planet and 
sold on another, pirates must be bought 



off or shot down, and the tax inspector 
must be avoided. These actions are all 
too familiar from other games, and the 
addition of graphics and a complex 
range of connections between the 
economies of the planets does not hide 
this. 

Star Trader is produced by Bug-Byte 
Ltd, Mulberry House, Canning Place, 
Liverpool; and costs £6.95. 

Les Flics 

CONTROLLING a “Pink character 
with a tail” you must avoid Inspector 
Cleudcau, Kaolin and Les Flics in order 
to steal the diamond. 

The plot of Les Flics is simple 
enough, although it is explained in ap¬ 
palling mock-French. The game, 
though, is more complicated. First of all 
you rush round town, avoiding the po- 
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lice cars, and then you enter buildings, 
collect the objects there, avoid the other 
characters, use the objects collected at 
the appropriate times, and steal the 
diamond. 

The main problem is that the uses of 
the objects are not explained. Some of 
these become apparent very quickly, 
while others remain totally obscure. 
There can be little more infuriating in a 
game than being able to enter every 
building, holding all possible objects, 
but not having any idea what to do to 
win. 

Les Flics is produced by P.S.S., 452 
Stoney Stanton Road, Coventry; and 
costs £6.95. 

Gatecrasher 

GATECRASHER presents the player 
with a series of gateways and a series 
of collection points, with a maze in 
between. The aim is to drop barrels 
through the gateways at the top, so 
that they will roll through the maze 
and finish in each one of the collec¬ 
tion points beneath. Dropping two 
barrels into the same collection point 
will result in both disappearing. 

The problem is that the maze con¬ 
tains several levers which affect the 
part of the barrel and which change 
direction each time they are hit. It 
makes the game into a kind of super- 
Rubik cube puzzle for, as fast as one 
lever is knocked in the correct direc¬ 
tion, another is knocked out of place. 
There are seven levels in which the 
mazes become progressively difficult. 

This kind of obsessively difficult 
puzzle is best provided in a small 
form, as was the cube, so that it can 
be played at an idle moment. The lack 
of change on the screen and the neces¬ 
sity for planning the results of each 
move with your eyes make it an eye¬ 


straining game. It is a clever idea but 
it does not work well as a computer 
game. 

Produced for the 48K Spectrum by 
Quicksilva, 13 Palmerston Road, 
Southampton, costing £6.95. 

Rainy Day 

CHEAP software cassettes are a mixed 
blessing. They bring pre-recorded soft¬ 
ware within the reach of many more 
computer owners but they also tend not 
to be good programs, and to offer much 
less value for money than do expensive 
cassettes. 

C.C.S. have brought out a range of 
cassettes called Charlie Charlie Sugar, 
each one of which costs £2.99. They are 
adequate games but, in most cases, are 
simply carefully developed versions of 
programs which most Sinclair Programs 
readers will have seen before. 

Rainy Day includes three different 
games. Codebreaker is a version of Mas¬ 
termind which involves discovering the 
combination which will open the safe 
before the time limit runs out. Reaction 
tester, as the name implies, tests your 
reactions, although keeping your finger 
on the “S” key all the time allows you 
to give the impression of super-fast 
reactions. Puzzle unit challenges the 
user to unscramble a jumbled picture. 



Dix Mille is a dice game at which 
you can play the computer or your 
friends. The aim is to score ten thou¬ 


sand, and various combinations of dice 
produce different scores. It is neatly laid 
out and looks good, but surely anyone 
wishing to save money would simply 
buy six dice and play the game without 
the computer? 

Both cassettes are adequate, although 
far from spectacular. They are pro¬ 
duced by C.C.S. Ltd, 14 Langton Way, 
London SE3 and cost £2.99 each. 

Gilsoft Adventures 

GILSOFT has demonstrated its faith in 
its adventure designer program, The 
Quill, by producing a series of adven¬ 
tures which have been written with its 
help. Each adventure is excellent and 
there is great variety in the series. 

Africa Gardens is set in a haunted 
hotel, where voices can be heard in the 
next room but people can never be seen. 
Each unnerving location is described in 
depth and certain sections are illustrat¬ 
ed. It is largely an adventure of explora¬ 
tion in which objects found help with 
movement to other locations. 

Mindbender runs along very differ¬ 
ent lines. The player begins in an office 
notable only for its lack of interest. One 
movement, though, sends the bemused 
player into an intricate Welsh adven¬ 
ture. 

Barsak the Dwarf demonstrates the 
ability of The Quill to set a time limit 
on an action. Soon after the game begins 
the player becomes hungry and must 
find a jar of pickles before starving. 
Once that problem has been overcome, 
thirst rears its ugly head. Again, it is a 
good adventure but it does not reach the 
standard of Castle Blackstar, to 
which it is remarkably similar. 

Diamond Trail is possibly the tight¬ 
est-written adventure on the market. 
Every object has a use and every loca¬ 
tion must be visited at least once. Once 
again, hunger sets in early and there is 
also a homicidal maniac chasing you 
with a gun. 

Another problem is that taking cer¬ 
tain objects results in your being arrest¬ 
ed. Can you survive to eat the 
hamburger, let alone solve the quest? 
One difficulty occurs late in the game. 
The author has been unfairly sneaky 
inside the railway station and once you 
are there you have almost finished the 
adventure. Save the game before pre¬ 
senting your ticket or you may find 
yourself having to repeat the entire 
adventure. 

All in all, an excellent series of very 
different adventures, produced by Gil¬ 
soft, 30 Hawthorn Road, Barry, South 
Glamorgan, price £5.95 each. 
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48K Specirum 

Two full 48K games, simulations of the 
famous card games BLACK-JACK and STUD 
POKER, full instructions, excellent graphics 
(complete cards dealt on screen ), cryptic sound 
effects (spot the tune), and devious betting and 
bluffing (try and outwit the computer). You II soon 
be asking yourself "Who is in there? - '. 

The games may not actually pay you out in cash, but if they keep 
you away from Casinos they will save you the price of the cassette! 

Available by mail order only. Price includes UK carriage and VAT. 
(Overseas add 55p p&p per tape.) Send cheque or postal order with 
your name and address on the back to: 

rafping] M.F.M. DATA SERVICES LIMITED 

-J 1 —-I 141a CAMDEN ROAD.TUNBRIDGE WELLS. KENTTN12RA 
! T > - C . C . . - Tel: Tunbridge Wells (0892) 48832 

All tapes guaranteed against mall unction. 24 hour despatch 


HORNBY XL 
SOFTWARE fW 

SPECTRUM 

PRO GOLF SERIES J Lg 

NEW ERA IN COMPUTERISED GOLF 

Recommended by "Sinclair User", August 

EXACT SIMULATION OF BRITAIN'S TOP GOLF COURSES 

(1) ALL GOLF RULES APPLY 

(2) DESIGNED FOR ONE OR TWO PLAYERS 

(3) PLAYED OFF ANY HANDICAP 

(4) ON EACH HOLE DIST, PAR. GREEN ENLARGEMENT ^ 

(5) CONTROL SHOT - CLUB. STRENGTH, DIRECTION, 

SHAPE OF SHOT 

(6) GRAPHICS EXCELLENT 

(7) EXTREMELY REALISTIC 

• TROON £6.95 48K 
NEW BIRKDALE £6.95 48K 
LINDRICK £6.95 48K 

WENTWORTH - EAST & WEST COURSES £10.00 48K 
MOORTOWN - SCENE OF CAR CARE PLAN 
INTERNATIONAL 1984 £6.95 
9 HOLE SIMULATED COURSE 

ALL PRICES INCLUSIVE OF VAT, P + P. AVAILABLE FROM: 

HORNBY SOFTWARE 

21 PINFOLD HILL, LEEDS LS15 OPW 


eveis 

of play against the clock. The game tests speed of recall involving 
anticipation of the question as it unfolds across the screen and 
speed of response dependant on the level of play 
block buster is supplied with the first additional ouestion 
tape free to maintain the challenge of the game. Now available 
at good computer shops or direct with cheque P.O. for £5.95 
inclusive. ACCESS and VISA orders taken on our 24 Hour Hotline. 


COMPUSOUND 


ADAPTED FOR 16/48 SPECTRUM 
FROM THE POPULAR T.V. SERIES!!! 
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ROMAN 

VUIIIUIS 

1 POKE 23658,255 80 NEXT X 

- PAPER O: BORDER 0: INK 7 90 for j=i TO LEN c* 

3 CLS : LET CH=0: LET GG=0 95 LET c *=c*+" - 

4 PRINT "Press Y to list Roma 100 IF c*(i TO iXelli+l TO i + 1 

n numerals and to list their va , THEN LET total-total+• <n <i+1 > - 
lues or any other key to test yo n(i>): LET i=i+l: NEXT Is BO TO 
urself:" 210 

5 PAUSE 4e4 HO LET total-total+n<i> 

6 IF INKEY* ="Y” THEN GO S 200 NEXT i 

UB 2000 210 IF total>4500 THEN CLS J P 

8 IF CH=0 THEN CLS RINT "Answer not possible!": BEE 

10 LET c*="“: LET total-0: DI p 1,2: RUN 

M 2 #(1000)i DIM v*( 1 000): DIM n< 220 PRINT "Your First no. was ” 
10Cl0> 5 tn; " i " : PRINT "The Arabic Equiv 

11 PRINT : PRINT "Press:"; PRI alent of "i PRINT R*;" is ";tota 
NT "1)For tests of Arabic-Roman 1 

or 2)For conversions of Roman- 230 IF total=tn THEN PRINT : P 

Arabic Numerals" RINT "Well Done'": FOR G =1 TO 5: 

12 PAUSE 4e4: IF INKEY* = “2" FOR F-U TO 7: BORDER F: BEEP .0 

THEN GO SUB 2500 2,F: NEXT F: NEXT G: BORDER Os G 

13 IF INKEY* <> "1" THEN CL 0 TO 300 

S : BEEP .05,2: GO TO 11 231 BEEP .5,-5: BEEP 1,-10 

14 IF CH -0 THEN CLS 235 IF total-tn >0 THEN LET c-t 

15 INPUT "What number do you w otal-tn: GO TO 240 
ant to try to put into Roman(En 236 LET c-tn-total 

tor 0 for a random choice)?";tn 240 PRINT : PRINT "You are "jcj 

“ out:" 

16 CLS : IF tn=0 THEN LET tn= 245 LET GG -1 

INT ( RND *3500)+1 246 LET A=TN 

17 IF tn>4500 OR tn<0 THEN PR 247 RESTORE 4000 
INT "Not possible:": BEEP 5,3: R 250 GO SUB 3010 

UN 260 PRINT .- PRINT "The correct 

20 PRINT "Enter Roman Figure f Roman figure of ";tn: PRINT "is: 
or "{tn j":": INPUT r*: CLS ": PRINT : PRINT b* 

40 FOR 1-1 TO LEN R* 300 INPUT "Again";y* 

45 RESTORE 310 IF y*="N" THEN STOP 

50 READ Z*<i): READ 0*<i)» REA 320 RUN f 

D N<i) 400 CLS 

55 IF N(I)=0 THEN GO TO 400 410 PRINT "The Roman Number:- " 

; R* 

60 IF Z*(i) <> R*(I TO I) THEN 420 PRINT "contains a digit dif 
GO TO 50 erent to that of any Roman di 

70 LET C*=C*+V*<i> git" 


W HEN RUN, Roman Nu- 
merals gives you the option 
of listing Roman numerals or 
of testing yourself on the conversion of 
Arabic to Roman numerals and vice 
versa. If you give an incorrect answer 
you will be told by how much you 
failed, what the Arabic or Roman num¬ 
ber you entered was, and the correct 
answer. The program deals with num¬ 
bers above 0 and below 3,500. 

Written for the 16K Spectrum by 
Andrew Gemmell, aged 14, of Eden- 
bridge, Kent. 


"b M ,5,"X 
e“,100, 


430 PRINT "PLEASE TRY AGAIN!' 

440 GO TO 300 
2000 CLS 

2005 PRINT 

2006 INK 6 

2010 FOR f=l TO 7 
2020 READ a*,b*,a 
2030 PRINT a*;" = "ja 

2040 NEXT f 

2041 PRINT 

2045 INK 7 

2046 PRINT "Press any key:" 

2050 PAUSE 4e4 

2055 LET CH=1 
2060 RETURN 
2080 DATA "I",“a", 
", , 'c",10,"L", M d",: 

"D","f",500,"M","g",1000 
2090 DATA "","",0 
2500 RESTORE 4000 
2510 CLS 

3000 INPUT "Enter Arabic Numeral 
? : a 

3010 IF A<0 OR A>3500 THEN CLS 
: PRINT "Not Possible!": PAUSE 4 
E4: RUN 
3020 LET b*-"" 

3030 FOR f-1 TO 15000 
3040 READ a*,b 

3050 IF a >= b THEN LET b*=b*+a 
*: LET a-a-b: RESTORE 4000 

3060 IF A <> O THEN NEXT f 

3061 IF GG=l THEN RETURN 
3065 CLS 

3070 PRINT "The Roman Number is 
"jb* 

3090 GO TO 300 

4000 DATA "M",1000,"CM",900,"D", 
500,"CD",400,"C",100,"XC",90,"L" 
,50,"XL",40,"X",10,"IX“,9,“V",5, 
"IV",4,"I",1 
4010 RETURN 
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Extend your 16k 
Spectrum to 48k for 
just £ 27*00. 

And get a Free 
program worth £ 4*50 
into the 


bargain. 


Is the manual past chapter 24 a mystery to you? ‘Beyond Horizons 
shows 48K Spectrum users how to PEEK and POKE systems 
variables, how to manipulate the display file, how to control the 
attributes, how to find out how much spare memory is left and much, 
much more. With the SP48 this program is free. On its own. £4.50. 


SP48B, 32k Memory Extension with Program — £27 

The SP48 simply plugs into the sockets provided by Sinclair inside 
your Spectrum and turns your 16k machine into an absolutely standard 
48k ready to run 48k programs. 

The SP48 fits Issue 2 and Issue 3 Spectrums. Full step-by-step 
instructions are provided. Fitting is easy and there is no soldering. 

The SP48 carries our full warranty and all our customers enjoy the 
benefits of our renowned product support 

And you get a free copy of Beyond Horizons, and educational 
program which has already enlightened thousands of 48k Spectrum 
owners about the inner workings of their computers. 

48/80 FORTH 

This compiler and editor is fast becoming recognised as the most 
professional and highest quality implementation of the FORTH language 
on the Spectrum. FORTH gives you the speed of machine code without 
the tedium of machine-code programming. 

All the Spectrum's excellent graphics commands are retained 
including DRAW. PLOT and CIRCLE. Real arcade quality sounds can be 
produced using BEEP 

More advanced FORTH programmers will find that 48/80 FORTH 
provides a complete implementation of FIG-FORTH, including the 
sophistications of BUILDS. DOES and CODE. 

Each 48/80 FORTH cassette includes a separate FORTH editor 
which uses part of RAM as if it were disk The 48K Spectrum allows a 16k 
RAM disk', while leaving nearly 20k of dictionary space. A comprehensive 
user-manual is also included, which covers both compiler and editor, and 
has a lucid beginners introduction 


Extensions to 48/80 FORTH will shortly be available to existing 
customers at a nominal charge. These will include floating point arithmetic, 
and microdrive handling. 

TRADE ENQUIRIES WELCOME - Are you on our trade/exporl mailing 
list? 

I All products on this order form are In stock. Same day dispatch (or phoned Access 

I and Visa orders. 

To East London Robotics Ltd: Please send by return (tick items required) 


| Cl] SP48B (for Spectrum Issues 2 or 3) £27___ 

[H BEYOND HORIZONS (48k) £4.50- 

| □ 48/80 FORTH (48k or 80k) £14.95- 

Postage 0.65p. I enclose a cheque/PO for_My Access/Visa No i 

1 1 i i i i i i i i i ii iiiii SB £ 

Name-—- 

Address- 

_SP9 

East London Robotics Limited. St. Nicholas House. The Mount Guildford, 

Surrey GU2 5HN 
Orders and special enquiries 
Guildford (0483) 505605 
Telex 859428 (Trade only) 


EAST LONDON 


NEEETIS5 
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Y OU CONTROL a laser station 
protecting a moon base from the 
dreaded Zorgothons. Position 
your laser gun and destroy the Zorgoth¬ 
ons before they inflict irreparable dam¬ 
age on your fuel tank. 

Argon was written for the 16K Spec¬ 
trum by David Gossner of Wakefield, 
W. Yorks. 


10 REM Argon 
20 GO SUB 900 
30 GO SUB 700 
35 GO SUB 800 
40 GO SUB 300 
45 GO SUB 100 

50 IF ht <> 1 THEN GO SUB 100 
70 PRINT INK 5; OVER 0; AT 19 
, 6 ;po;" "; AT 19,25;sc; AT 20,6;| 
Iz; AT 20,15;tno; AT 20,25;ki 
80 IF po<0 THEN GO TO 600 
90 GO TO 40 

100 LET uxo=ux: LET uyo-uy 

101 LET u*= INKEY4 

105 IF u»-“" THEN RETURN 

106 IF u*»"0" OR u*-”l" THEN G 
0 TO 150 

107 IF u*<“5" OR u*>" 8 " THEN R 
ETURN 

110 LET ux =ux + < u*=* “ 8 " AND ux<29 

> — (ul="3" AND ux >2) 

120 LET uy=uy+(u$=" 6 " AND uy<13 
)-<u»="7" AND uy>2> 

125 IF ux-uxo AND uy-uyo THEN 
RETURN 

130 PRINT INK 7; AT uyo,uxo;"A 
"; INK 6 ; AT uy,ux;"A": LET po-p 
0 - 1 : BEEP .005,20—uyr RETURN 
150 INK 5: LET po-po-10 
155 LET lz=lz+l: LET lcx-ux*B+4 
: LET lcy»(21-uy)*8+4 
160 FOR n=l TO 2l BEEP .04,6: B 
EEP .02,12: PLOT 8,56: DRAW lcx- 
8,lcy-56: PLOT 247,56: DRAW lcx- 
247,lcy-56: INK 7: NEXT n 
175 INK 6 : FOR n=l TO 2: PRINT 
AT uy,ux-l; '*>G<“: BEEP .03,24: 
INK 7: NEXT n 

180 IF NOT (uy=ty AND ux >= tx 
-df AND ux<tx+df+ LEN t*> THEN 
INK 5: RETURN 

200 OVER 1: LET ht-O: LET ki-ki 
+1: LET sc=sc+100- LEN t»*10 
210 FOR n=l TO 4: PRINT AT uy- 
1,ux-l;"\F/“; AT uy,ux-l;"FGF”; 
AT uy+1,ux-l; M /F\": BEEP .1,36: 
BEEP .05,6: INK 7: NEXT n: LET h 
t=l 

220 RETURN 

300 IF ht=l THEN GO TO 360 
302 LET tyo=ty: LET txo=tx 
305 LET u*“tS: LET tx-tx+1 

310 IF ty >= 12 THEN LET tc=-l 

311 IF ty <= 4 THEN LET tc=l 

312 LET ty=ty+tc+ < INT ( RND *2 

> AND ty<24>-< INT ( RND *2) AND 
ty>3> 

315 LET t*-"“: LET t*=<"B" AND 
tx<9)+<"CD" AND tx >» 9 AND tx<l 
8 )+("CED" AND tx >= 18) 

330 PRINT INK 4; AT tyo,txo;u# 
; AT ty,tx;t»: BEEP .02,-12 
343 IF ty >8 AND RND <.7 AND << 
tx>16 AND tx<21> OR tx*24> THEN 
INK 2: FOR m=l TO 2: FOR n=-l T 
O 2 : PLOT tx*8+12,175-<ty*8>-12: 

DRAW n*3,-40: BEEP .003,30: NEX 
T n: INK 7: PRINT INK 6 ; AT 21, 
O;"( lq 8 :lPiiO:lW:lE:lR:iq 8 :iL:iO 
:lS:IS:loB ) ": LET po=po-9: NEXT 
m 355 IF tx <= 27 THEN RETURN 
360 PRINT INK 7; AT ty,tx;t*: 



LET tno=tno+l: LET tx»2: LET ty= 
7+ INT ( RND *6): LET tc-li LET 
ht*0 

375 LET t*-"B" 

380 PRINT INK 4; AT ty,tx;t* 
385 RETURN 

600 FOR n=»0 TO 74: INK n/10: BE 
EP .06,n-50: PRINT AT 10,8;"- M 
ISSION ENDED NEXT n 

640 FOR n=0 TO 74: BORDER 7-n/l 
O: BEEP .05,n-20l NEXT n 
680 INPUT INK 6; TAB 6;“ANOTHE 
R MISSION? ";u* 

685 IF u*="n" THEN GO TO 9999 
690 RESTORE : GO TO 30 
700 INPUT INK 2;"Difficulty?: 
0<hard> or 1 “;r*: IF r* <> "0" 
THEN LET r*="l" 

705 LET df= VAL rt 
710 LET ux=10: LET uy»10 
715 LET uxo=ux: LET uyo=uy 
720 LET tx-4: LET ty-2: LET txo 
=tx: LET tyo-ty: LET te-1 
730 LET po-999: LET sc=0: LET k 
i=0: LET 1 z=0: LET ht=0 
740 LET t#="B": LET tno=l 
750 FOR n= USR "a" TO USR "g" + 
7 

760 READ d: POKE n,d: NEXT n 
770 RETURN 

780 DATA 255,129,0,0,0,129,129, 
255,0,0,0,24,36,255,36,0 
786 DATA 0,0,2,7,9,255,9,2,0,0, 
32,224,144,255,144,64,112,32,210 
,255,126,255,126,189 
790 DATA 16,88,16,8,230,0,20,16 
,149,88,40,231,82,20,74,145 
800 BORDER 0: PAPER 0: INK 7 
805 OVER O: CLS 

810 PLOT 3,26: DRAW 247,0: DRAW 
0,144: DRAW -247,0: DRAW 0,-144 

811 LET gy-34: LET gc=6 

812 FOR n=1 TO 6: PLOT 5,gy 

813 DRAW 243,0: LET gc=gc-l: LE 
T gy=gy+gc: NEXT n 

815 FOR n=l TO 70: INK 2+ RND * 
6 : PLOT 10+ RND *230,70+ RND *90 
: DRAW RND ,0: NEXT n: INK 7 

820 LET gc-1: LET gy=54 

821 FOR n=5 TO 247: LET gy-gy+g 
c+ INT ( RND *3)-1: PLOT n,gy: D 


RAW .O,-( RND * Cgy—55) AND gy>54> 

822 IF RND <.l THEN LET gc=-g 

823 IF gy>61 THEN LET gc— INT 
( RND *2.5) 

824 IF gy<54 THEN LET gc= INT 
< RND *2.5) 

826 NEXT n 

828 PRINT INK 5; AT 15.1;"< iq2 
>"; AT 15,30;" (igl )" 

830 FOR m*0 Tff" 6 ff STEP 20 
832 IF m-40 THEN NEXT m 
834 FOR n-38 TO 51: PLOT 140+m, 
n: DRAW 20 , 0 ,.7: NEXT n: DRAW -2 
0,0,.7: NEXT m 

850 FOR n-1 TO 5: CIRCLE INK 4 
;23,140,n: NEXT n: OVER 1 
870 PRINT INK 6 ; AT uy,ux;“A“ 
880 PRINT AT ty,tx;"B" 

885 PRINT AT 19,0;"POWER"; AT 
19,19;"SCORE"; AT 20,0;"LAZER"; 
AT 20,12;"NO"; AT 20,19;"KILLS" 
890 BEEP 1,9: RETURN 
900 BORDER 7: PAPER 7: INK 0 
905 OVER 0: CLS 
910 PRINT AT 0,11;"- ARGON -" 
915 PRINT AT 3,2;"You control 
a lazer station"'" protecting a 

moon base from. the dreaded 

ZORGOTHONS" 

930 INPUT “More...“;r*i CLS 
940 IF r*-”n" THEN RETURN 
950 PRINT "You use up your liml 
ted amount"'“of POWER, firing th 

e lazer,.and moving the track! 

ng sights." 

955 PRINT \"The base is shielde 
d by an""'energy f ield. " * "This a 

Iso takes power to sustain.Eve 

ry time the base is hit,.power 

is 1 ost." 

960 PRINT "When your power is 
exhausted,"'"the mission ends.." 

965 PRINT ' "CONTROLS:.5 to 

move left ","8 to move right" 

970 PRINT '"6 to move down","7 
to move up "'"'0 or 1 to fire" 

985 RETURN 

9999 BRIGHT O: FLASH O: OVER 0: 
INK 0: BORDER 7: PAPER 7 
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C OLLECT as many Gold Bars 
as possible on your journey to 
reach the bag of diamonds. You 
must decide whether it is safe to collect 
a bar or whether you should go straight 
up the ladders to the diamonds. If you 
take too long the elephant will reach the 
diamonds before you do and the game 
will end. 

Written for the 16K Spectrum by 
Neil Beck of Drumchapel, Glasgow. 


2 FOR n=0 TO 7: READ a: DATA 
24,24,60,90,90,24 ,"56, 102: POKE 
USR "E"*n, a: NEXT n 

3 FOR n"0 TO 7s READ a: DATA 
253,129,255,129,255,129,255,129: 

POKE USR "R"*n,a: NEXT n 

4 FOR n=0 TO 7: READ a: DATA 
0,0,0,0,0,0,124,254: POKE USR " 
T"+n,a: NEXT n 

5 FOR n=0 TO 7: READ a: DATA 
15,27,31,31,31,31,25,120: POKE 
USR "P"+n,a: NEXT n 

6 FOR n=0 TO 7: READ a: DATA 
24,88,80,120,48,0,0,0: POKE USR 

"S”+n,a: NEXT n 

7 FOR n*0 TO 7: READ a: DATA 
224,224,224,224,224,224,192,0: P 
OKE USR "F"+n,a: NEXT n 

8 FOR n=0 TO 7: READ a: DATA 
0,0,0,0,0,3,7,15: POKE USR “U"«- 
n,a: NEXT n 


0.0,0,0,0,224,243,253: POKE USR 
•l"*n,a: NEXT n 

10 FOR n»0 TO 7: READ a: DATA 
0,0,0,0,0,0,224,248: POKE USR M 
0"+n,a: NEXT n 

11 FOR n=0 TO 7: READ a: DATA 
252,254,255,255,253,253,249,243: 

POKE USR "A"+n,a: NEXT n 

12 FOR n-0 TO 7: READ a: DATA 
112,112,112,112,112,112,96,0: PO 
KE USR "D"+n,a: NEXT n 

13 FOR n=0 TO 7: READ a: DATA 
0,8,24,24,60,126,126,60: POKE U 
SR "G"+n,a: NEXT n 

14 PAPER 3: BORDER 3: CLS 

15 POKE 23672.0: POKE 23673,0 

16 PRINT AT 0,0;"Enter level 
of difficulty 1 is the hardest 

and so on"; AT 2,0;"1..2..3. 

...5. " 


18 IF q>5 OR q<l THEN GO TO 1 

7 

19 CLS : REM Screen Display 

20 LET »«0 

22 FOR n=4 TO 20 STEP 3 
25 FOR m=0 TO 31 
30 PRINT INK O; INVERSE 1; AT 
n,m; M X" 

35 LET er=3: LET ec=27: LET t= 

O 

40 NEXT m: NEXT n 
42 LET d=18: LET a=15 

45 LET 1- INT ( RND #28)+2 

46 LET h- INT < RND *28)*2: PR 
INT AT d,h; INK 6;'J1“ 

47 LET r-d-1 

49 IF d=6 THEN LET 1=4 

50 PRINT AT r+1.1s"R“; AT r,l 
;"R"; AT r-l,l:"R," 

55 PRINT INK 7; AT d,a;" E " 
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200 INPUT "NAME OF PLAYER 1 = "; 
P* 

210 INPUT "NAME OF PLAYER 2 ="; 
L* 

220 LET Ml=100s LET M2=100 

230 GO SUB 600 

231 PRINT AT 3,4;P*;" HAS£";M1 
;AT 5,4;L*;" HAS t ";M2 

240 INPUT "PLAYERS 1 STAKE*";ST 
AKE1 

243 IF STAKE1>M1 THEN GO TO 24 

0 

250 INPUT "PLAYERS 2 STAKE="jST 
AKE2 

235 IF STAKE2>M2 THEN GO TO 25 

0 

257 LET Ml*Ml-STAKEls LET M2=M2 
-STAKE2 

260 INPUT "PLAYER 1 NUMBER*";GU 

265 IF GUI>41 OR GU1<1 THEN GO 
TO 260 

270 INPUT "PLAYER 2 NUMBER*”;GU 

2 

275 IF GU2>41 OR GU2<1 THEN GO 
TO 270 

280 IF GUI>2 AND GU1<40 THEN L 
ET RANGE l=GUl-*-2; LETT RANGE2=BU1- 


mm 


K «' 
PI# 

I N A SPIN is a game for two players 
written for the 16K Spectrum by G. 
P. Grandin of Reading, Berkshire. 
The players enter their names, their 
stake and the number they wish to 
choose. The computer then shows them 

1 RESTORE 30 

5 LET C0-0« LET ODDl-li LET O 
DD2=ls LET RANGE1=1s LET RANGE2= 
Is LET RANGE3=ls LET RANGE4-1 
10 POKE 23658,8 

20 FOR F=USR "A" TO USR "C"+7l 
READ A: POKE F,As NEXT F 
30 DATA 255,129,129,129,129,12 
9,129,255,255,128,128,128,128,12 
8,128,233,253,1,1,1,1,1,1,253 
40 FOR N*1 TO 41s READ A,B,C 
50 PRINT OVER 1;AT A,B;CHR* C 
;AT A, B; N 

60 IF N>=10 THEN PRINT AT A,8 
;CHR* 145;CHR* 146;AT A,B; OVER 
1?N 

65 NEXT N 

70 DATA 1,1,144,1,3,144,1,3,14 
4,1,7,144,1,9,144,1,11,144,1,13, 
144,1,15,144,1,17,144,1,19,143,1 
,22,145,1,23,143,1,28,143,3,28,1 

45,5,28,145,7,28,145,9,28,145 
80 DATA 11,28,143,13,28,143,13 
,28,145,17,28,145,19,28,145,21,2 
8,145,21,25,143,21,22,143,21,19, 
143,21,16,143,21,13,145,21,10,14 
5,21,7,143,21,4,145,21,1,14^,19, 

1,143,17,1,145,13,1,143,13,1,145 


the numbers on which they can win and | 
spins a disc. If a player has a winning 
number the money is awarded accord¬ 
ingly. This continues until one or both 
players run out of money. 

,11,1,145,9,1,145,7,1,145,3;1,14 

5,3,1,145 

90 GO TO 200 

100 RESTORE 70s FOR N=1 TO 41s 
READ A,B,C 

105 LET PA=RND*2+.35 

106 IF PA<.5 AND COM AND N>=10 
THEN PRINT AT A,8; PAPER 4; IN 

K 1; FLASH 1;CHR* 145;CHR* 146;A 
T A,B;Ns LET CO-Oi GO TO 400 

107 IF PA<.5 AND COM AND N<10 
THEN PRINT PAPER 4| INK 1; FLA 
SH 1;AT A,B;CHR* C; OVER 1|AT A, 

B;Ns LET C0=0s GO TO 400 

108 IF PA<.3 AND C0<-1 THEN LE 
T PA*.3 

110 IF N>-10 THEN PRINT AT A,B 
; FLASH 1: PAPER 2;CHR* 145;CHR* 
146;AT A,B;Ns PAUSE PAs PRINT A 
T A,8; FLASH 0; PAPER 7;CHR* 145 
;CHR* 146;AT A,B; OVER 1:N 
130 PRINT OVER 1; PAPER 2; FLA 
SH 1;AT A,B;CHR* C;AT A,B;Ns PAU 
SE PAs PRINT AT A,B; FLASH O; OV 
ER 1; PAPER 7;CHR* C;AT A,B;N 
140 NEXT N 
150 LET C0=C0+1 
160 BO TO 100 


300 IF GU2<2 THEN LET RANGE3=G 
U2+4s LET RANGE4=GU2 
310 IF GU1<2 THEN LET RANGE1=G 
Ul+4s LET RANGE2=GU1 
320 IF GUI>=40 THEN LET RANGE2 
=GUl-4s LET RANGE1=GU1 
330 IF GU2>=40 THEN LET RANGE4 
=GU2-4s LET RANBE3=GU2 
350 PRINT AT 7,4;P*;" = ";STAKE1; 

•• STAKE"; AT 9,4; L*; " = "; STAKE2; " 
STAKE" 

360 PRINT AT 11,4;P*;" RANGE*"; 
RANGE 1;" TO ";RANGE2;AT 13,4;L*; 

" RANGE=";RANGE3;" TO ";RANGE4 
380 BO TO 100 

400 IF N< =RANGE1 AND N>=RANGE2 
THEN LET M1=M1+STAKE1+(STAKE1*0 
DD1)s GO SUB 800 
410 IF N< =RANGE3 AND N>=RANGE4 
THEN LET M2=M2+STAKE2+<STAKE2*0 
DD2)s GO SUB 800 
420 PAUSE 100s FOR N=3 TO 19s P 
RINT AT N,4;" 

"s NEXT N 

430 IF M1<*0 OR M2<=0 THEN GO 
TO 450 

440 GO TO 230 

430 IF M1<*0 AND M2<=0 THEN CL 
S : PRINT "BAD LUCK BOTH OF YOU. | 
YOU BOTH LOST" s GO ; 

TO 460 

451 IF M2<=0 THEN CLS s PRINT 
"BAD LUCK ";L*;" YOU LOST"s PRIN 
T "WELL DONE ";P*;" YOU WON #"; 
Ml 

452 IF MlOO THEN CLS 5 PRINT 
"BAD LUCK ";P*;" YOU LOST"s PRIN 
T "WELL DONE ";L*;" YOU WON #"; 
M2 

460 INPUT "ANOTHER GO 7";W* 

470 IF W*="Y" THEN RUN 
480 IF NOT W*="Y" THEN STOP 
600 RESTORE 610s FOR N=4 TO 14 
STEP 2s READ DATAs PRINT AT N,4; 
CHR* 145;" ";CHR* 146;AT N,S; 

"Is";DATAs NEXT N 
610 DATA 1,2,4,6,8,10 
615 RESTORE 610; FOR N=1 TO INT 
<RND»7>: READ ODDls NEXT N; RES 
TORE 610s FOR M=1 TO INT <RND*7> 
s READ 0DD2; NEXT M 
620 PRINT AT 18,4;"PLAYER 1*";" 
Is";ODD1; PRINT AT 19,4;"PLAYER 
2=";"Is";0DD2 

630 PAUSE 150s FOR N=4 TO 19s P 
RINT AT N,4;" "» NEX 

T Ns RETURN 

BOO PRINT AT 18,6;"WELL DONE YO 
U WON"; FOR N=1 TO 255s OUT 132, 
N; BEEP .00175,RND*65: NEXT Ns P 
RINT AT 18,6;" 

810 RETURN 
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drive stora ge s ystem 


Integrated System 

The Wafadriveisa 
complete system which 
contains the micro interface, 
two 128K drives, RS232 and 
Centronics ports, all in one 
attractively-styled, compact 
unit. There is a minimum of 
connecting leads and no extra 
boxes to clutter the desk top. 
Like the majority of profes¬ 
sional systems, the units are 
dual drive.This offers the opti¬ 
mum balance between system 
flexibility and cost. Built-in 
serial and parallel interfaces 
allow the direct connection of 
just about any popular printer. 


Fast and Reliable 

The Wafadrive achieves 
very fast loading and saving, 
but not at the expense of 
reliability. Extensive research 
and the use of high grade 
materials ensure that the 
Wafadrive will give years of 
dependable operation. Data 


integrity is on a par with 
floppy disk.The fully inter¬ 
changeable wafers are avail¬ 
able in three sizes- 128K.64K 
and 16K. Low capacity wafers 
give faster access. They are 
therefore most suitable for 
program development 
applications. The high 
capacity wafers are suitable 
for more general data storage. 
Loading rate is well over ten 


times as fast as cassette! 


Software 


Armed with the com¬ 
prehensive user manual, 
blank wafer and word 
processor supplied, you can 
use your Wafadrive straight 
away. There is also a rapidly 
growing range of software to 
enable the programmer and 


games player to exploit the 
Wafadrive system to the full. 

Wafadrive for the 16/48K 
Spectrum is available now. 
Versions for other popular 
home computers are under 
development. 

Send a 16p stamp for a full 
colour brochure and 
information on software and 
accessories. 


FOR USE WITH THE SINCLAIR SPECTRUM 


release send me (enle< n appropriate) 


| _ ROTRONICS Spectrum VMadrivefs) 

■ _ 16K wafer(s) 

| - 64K waler(s) 

I)* £129.95 each 
w £3.45 each 

W £3.65 each 

| _ _ HeathrowNightfllle II (49K. Hewson) 

1 _ Space WarsSeiddab Attack. Luna 

Attach (48K: Mewson) 

. Beer Bower Wong s Loopy Laundry' 

World Cup(4SK:Artic) 

, _ Starbike(48K Soltek) 

| The Artist • graphic utility (48K So ft ok) 

~ package (48K. Hevrson) 

W £14.95 each 
@£14.95 each 

@£9.95 each 

@£7.95 each 

O £9.95 each 

M 09 95each 

_Centronics lead 

w £9.95 each 


| All prices Include VAT and PAP 


1 □ 1 enclose a cheque/PO* made payable to SMT 

| G debit my Access/Barclay card' 

’ account no. 


(‘delete as applicable) | 



SMT 


How much would 
you expect to pay for a 
dual 128K fast access 
storage system for 
your Spectrum that 
included Centronics 
and RS232 interfaces 
and free word pro- 
cessing software as 
standard? 

Chances are it’s a lot more 
than C129.95. But this is what 
will buy you the incredible 
Rotronics Wafadrive unit. 
There are no extras-this price 
includes VAT and postage. 


A fast reliable dual- 

































IN-ONE 



Spectrum owners! Imagine what 
great use you could make of all 
these components. Rotronics have 
integrated them all into one 
attractively styled, compact unit. All 
the power and convenience of 
floppy disk can now be yours, but at 
a fraction of the cost. 

A complete package 

Wafadrive is extremely 
versatile. Five major components 
are housed within this one unit - 
the micro interface, two 128K 
drives. RS232 serial and 
Centronics parallel ports. Also 
included in the package are a blank 
wafer and Spectral Writer- a 
superb word processor program. 
The micro interface forms the nerve 
centre of Wafadrive. controlling all 
its major functions. The dual drive 
configuration and the ability to 
connect standard peripherals 
directly provides professional 
system flexibility. All this without a 
mass of separate components and 
vulnerable cables. Wafadrive 
transforms your Spectrum into a 
very powerful system. 

Speed, reliability and 
capacity 

The wafers contain an endless 
loop of specially developed 
magnetic tape driven at high speed 
past a read/write head. The result is 
fast access without data loss. 

Three sizes of wafer are available 
with minimum formatted 
es of 16K.64K 
and 128K. The 128K 
wafer costs £3.95. 


Data transfer rate is approximately 
2K per second. Access time is 
proportional to capacity. 16K wafers 
are ideal for program development, 
with the larger capacity wafers 
being more suitable for general use 
and archiving of completed 
programs and data. Mechanical 
longevity is assured by the use of 
high grade materials throughout 
and full interchangeability between 
machines is guaranteed. 

Extensive software 
applications 

Wafad we provides intelligent 
file handling and rapid access to 
data. Program development and 
other applications can be 
performed with ease. Start word 
processing immediately with the 
specially developed software 
package included with Wafadrive. 
Or battle with a spectacular 
interactive games program. 
Whatever your mood, you'll find the 
sophisticated Wafadrive software 
challenging and rewarding. Future 
versions of Wafadrive will be 
available for most popular home 
micros, so software back-up will be 
comprehensive. 

For further information 
contact us now for our full colour 
brochure. 

ALL-IN-ONE PRICE 
£129.95 (Inc. vat) 


RotronicsUmited. Santosh 
House. Marlborough Trading 
Estate. West Wycombe Road. 
High Wycombe. Bucks. 

HP112 LB Tel:(0494) 452757 


I entro nics4n terfac :e 



ROTRONICS 


WAFADRIVE 
























TOURIST 


! WfL 


10 DIM a(26): DIM a*C26,ll>! D 
IM b*<26,10> 

20 FOR b=I TO 26 
30 READ alb) 

40 NEXT b 
SO FOR C=1 TO 26 
60 READ a*(c> 

70 NEXT c 
80 FOR d=l TO 26 
90 READ b*ld> 

100 NEXT d 
110 FOR e=l TO 26 
112 IF e/4>6 THEN INK 1: BORDE 
1: GO TO 120 

115 INK INT e/4: BORDER INT e 


170 INPUT "How many pounds (ste 
rling) have you got? #"}f 
180 PRINT " # " ; f ; " = " $ a <b) *f j “ “ j 
b#(b) 

185 PAUSE 0: CLS 
190 80 TO 110 

1000 DATA 1.53,26,76.4,1.77,13.7 


1010 DATA 7.94,11.39,148.5,4.2,3 
6.75 

1020 DATA 1.22,267,2305,319,.6,2 
. 12 

1030 DATA 10.65,190,2.02,203.75 


T HERE ARE 26 countries from 
which to choose, and each has 
its own code. Enter your chosen 
country code and the computer will 
display the country and currency. You 
will then be asked to INPUT the 
amount of money you have and this will 
be converted to the foreign currency. 
To change the exchange rates alter the 
DATA statements for array a. 

Tourist Rates was written for the 
16K Spectrum by Nicholas Stein, aged 
12, of Bromley, Kent. 


120 PRINT e,at(e) 

130 NEXT e 

140 INPUT "Enter your choice of 
country";b 

142 IF b/4>6 THEN INK 1* BORDE 
1: GO TO 150 

145 INK INT b/4: BORDER INT b 


1040 DATA 11.06,3.06,450,1.38 
1050 DATA 3.72,182 
1060 DATA "Australia","Austria", 
"Belgium","Canada","Denmark" 

1070 DATA "Finland","France","Gr 
eece","Holland","Iceland","Eire" 


any",“Yugoslavia" 

1110 DATA "Dollars","Schillings" 
,"Francs","Dollars","Kroner","Ma 
rkka" 

1120 DATA "Francs”,"Drachma","Gu 
ilders","Kronor","Punts","Shekel 


1080 DATA "Israel","Italy","Japa 
n","Malta","N Zealand","Norway" 


1130 DATA "Lire","Yen","Pounds", 
"Dollars","Kroner“,"Escudos","Ra 


150 IF b>26 OR b<1 THEN GO TO 


1140 DATA "Pesetas","Kronor","Fr 
ancs","Lira","Dollars","Marks"," 


HOO DATA "Turkey" , "USA" , 
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urtle 

170 GO TO 130 

2999 REM replace turtle 

3000 IF move <> 1 THEN RETURN 

3010 LET move=0 

3020 PRINT AT ll,(v*7)-3j PAPER 
5; INK 3;" FGHIJ " 

3030 PRINT AT 12,(v#7>-3; PAPER 
1; INK 4;"KL <3*ig8> MB" 

3040 PRINT AT 13,<v*7>-3; PAPER 
1; INK 4; "ABCD E M 
3050 RETURN 

3399 REM lost all lives 

3400 PRINT AT 8,0j INK 0{ PAPER 

5 j •• Game over 

3410 RESTORE 9986: FOR g=l TO 11 
: READ a,b: BEEP a/2,bi NEXT g 

3420 IF sc >hi THEN LET hi=sc 
3430 LET sc*»Oi LET sh=l: LET li= 
3 

3435 LET X=B: LET Y-0 

3436 LET start=0 
3440 GO TO 110 

3999 REM lose life_ 


4000 PRINT AT 8,10; FLASH 1? IN 
K O; PAPER 7j"LOSE A LIFE" 

4020 RESTORE 9986: FOR g = l TO 11 
: READ a,b: BEEP a/2,b: NEXT g 

4030 LET li-li-1 

4032 IF li*0 THEN GO TO 3400 

4035 LET x=8: LET y-0 

4036 LET START-0 
4040 GO TO 120 

4999 REM turtle movement 
3000 LET a»l-(sh/10) 

5010 LET v- INT < RND *4>+l 
5020 IF RND >a THEN GO TO 3040 
5030 RETURN 

5040 PRINT AT il,(v*7)-Sf PAPER 
5j INK 0>" 

5041 LET move=l 
3043 FOR f-12 TO 13 

5050 PRINT AT f,(v*7)-5» PAPER 

U “ 

5060 NEXT f 
5065 BEEP .1,0 
5070 RETURN 

5499 REM reach other side 

5500 IF y=30 AND start=0 THEN G 
O TO 5600 


T HE OBJECT OF the game is to 
reach the other side of the river 
by jumping on the backs of the 
turtles. If you jump onto a turtle as it 
goes under the water you will fall off 
and drown. To play the game save the 
graphics program and main program 
separately. Then load the graphics pro¬ 
gram and RUN it. After OK appears, 
type NEW and enter and then load the 
second part. Use RUN 5 to start the 
program and then both programs can be 
saved using GOTO 9999. 

Turtle Hop was written for the 48K 
Spectrum by Andrew Broadhead of 
Wakefield, W. Yorks. 


2 REM Turtle Hop 48K Spectrum 

3 LOAD "Graphics" CODE 
5 LET hi=0 

9 LET sc-O: LET sh=l: LET li= 
3 

10 LET 1*="1": LET r$="0" 

11 LET x-8: LET y=0 
40 LET start=0 

50 LET move=0 

100 GO SUB 9900: REM intro 
110 GO SUB 9800: REM instructs 

120 GO SUB 9000: REM screen 
130 GO SUB 5000: REM turtle mo 

ve 

ISO GO SUB 6000: REM man movem 
ent 

160 GO SUB 3000; REM replace t 


10 FOR x= USR "a" TO USR "u"+ 
7 

20 READ g 
30 POKE x,g 
40 NEXT x 

100 DATA 63,31,1,1,7,0,0,0,248, 
240,224,192,128,0,0,0 
110 DATA 13,15,15,31,63,127,0,0 
,224,224,192,128,0,0,0,0 
120 DATA 240,248,252,252,126,62 
,6,0,0,0,0,0,1,7,31,127 
130 DATA 0,1,31,127,253,253,235 
, 255,0,252,253,255,255,255,255,2 
55 

140 DATA 0,0,192,240,252,255,25 
5,255,0,0,0,0,0,0,192,240 
150 DATA 0,0,0,0,3,15,29,61,131 
,127,63,63,255,255,253,255 
160 DATA 233,235,253,255,255,25 
2,240,240,15,13,9,9,31,60,127,15 
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5310 IF y=0 AND start-30 THEN 

0 TO 3700 

5320 GO TO 130 

5600 LET start=30 

5610 LET sc=sc+100 

5620 BEEP 1,40 

5625 LET sh-sh +1 

3630 GO TO 120 

5700 LET start=0 

5710 LET sc=sc+100 

5720 BEEP 1,40 

3725 LET sh-sh +1 

5730 GO TO 120 

5999 REM man movement 

6000 IF INKEYS =r* THEN GO TC 
6100 

6010 IF INKEY* -1* THEN GO TC 
6600 


6015 IF ATTR <x+3,y> <> 43 AND 
y <> 30 AND y <> O THEN GO TO 6 
160 

6020 RETURN 

6100 IF y=30 THEN RETURN 
6105 PRINT PAPER 8 ; AT x,y;" “ 

; AT x+l,y;“ “; AT x+2,y;" “ 


LET y=y+5» BO 
LET y-y+4: GO 


6110 IF y =0 THEN 
TO 6130 

6120 IF y=26 THEN 
TO 6130 
6125 LET y=y+7 
6127 BEEP .3,12 

6130 PRINT INK 2; PAPER 3? AT x 
,yj INK 2;"RS": AT x+l,y; INK 7; 
"NO" : AT x+2,y; INK 2;"PQ" 

6140 IF ATTR <x+3,y> <> 43 THEN 
GO TO 6155 

6145 LET sc=sc+10 

6146 PRINT AT 1,0; PAPER 7; INK 
l;sc 

6150 RETURN 

6155 IF y—30 OR y-0 THEN GO TO 
3500 

6160 FOR x =8 TO 16 
6170 PRINT INK 2? PAPER 8 j AT x 
-l,y; H AT x,y; INK 2;"RS"; A 
T x+l,y; INK 7;':Ng"; AT x+2,y; I 
NK 2; ’■PQ" 

6180 BEEP .1,-x-20 

6190 NEXT x 

6200 GO SUB 4000 

6600 IF y-0 THEN RETURN 

6610 PRINT PAPER 8 ; AT x,y;" " 

; AT x+1,yj" "5 AT x+2,y;" " 


LET y=y-5: 


LET y=y-4s 


6620 IF y=5 THEN 
TO 6630 

6630 IF y=30 THEN 
TO 6630 

6640 LET y=y-7 
6650 GO TO 6127 

8998 STOP 

8999 REM SCREEN 

9000 BORDER 5: CLS 

9010 PRINT INK 2; PAPER 7; AT O 
,0;"SCORE SHEET LIVES H 
IGH " 

9015 PRINT 
9020 PRINT 
,0;sc; AT 1,1 
T 1,27;hi 

9030 FOR g=2 TO 10 
9035 PRINT AT g,0; PAPER 5; 


PAPER 7; AT 1,0;,, 
INK 1; PAPER 7; AT 
11;ah; AT'1,20;li; I 


9040 NEXT g 

9042 PRINT AT 3,11; INK 0; PAPE 
R 5;"TURTLE HOP" 

9045 FOR g=l1 TO 19 

9050 PRINT AT g,0; PAPER 1;,, 


9052 PRINT INK 2; AT g,0;"( 2»ig 
B_> "; AT g ,30; " < 2»iq8) " 

9055 NEXT g 

9071 INK 2: PAPER 1 

9075 PRINT AT 14,2;^U “; AT 14,2 


9076 PRINT AT 15,2;"( lgB)U "; AT 
15,28;"T(ig8>" 

9077 PRINT AT 16,2;"( 2»lqB)U" ; 
AT 16,27;"T (2»iq8> " 

9078 PRINT AT 17,2;"< 3»lg8)U "; 


AT 17.26;"T< 3«ig8> " 

9079 PRINT AT 18,2;" (4»iq8)U "; 


AT 18,25;"TC4*ig8>" 

9080 PRINT AT 19,2;"< 29*1g8 > 


9090 PRINT INK 2 ; PAPER 5; AT x 
,y; INK 2;"RS."l AT x + l,y; INK 7; 
"NO"; AT x+2,y; INK 2;"PQ" 

9100 FOR g=2 TO 23 STEP 7 

9110 PRINT AT ll,g; INK 3; PAPE 

R 5;" FGHIJ "; AT 12,g; PAPER 1; 

INK 4;" KL(3»ig8)MB" ; INK 4; AT 
13.q;" ABCD E " 

9120 NEXT g 
9130 RETURN 

9698 STOP 

9699 REM define keys 

9700 POKE 23658,8 

9701 PAUSE 3s PAUSE 5s PAUSE 5t 
PAUSE 5 

9705 BORDER Is PAPER Is INK 7s C 


LS 

9710 PRINT AT 3,5;“Press the ke 
y to moves" 

9720 PRINT AT 7,8;"LEFT" 

9725 LET 1*- INKEY* s IF 1*-"“ T 

HEN GO TO 9725 

9730 PRINT AT 7,15;1* 

9740 PRINT AT 11,7;"RIGHT" 

9745 LET r*= INKEY* : IF r*- H " O 
R r*=l* THEN GO TO 9745 
9750 PRINT AT ll,l5;r* 

9760 PRINT FLASH 1; AT 18,3;"Pr 
ess any key to continue." 

9770 PAUSE 10: PAUSE 10s PAUSE 0 

9799 REM instructs 

9800 BORDER 5s PAPER 5s INK Os C 
LS 

9810 PRINT AT 1,11;"TURTLE HOP" 

9820 PRINT AT 3,0;" Direct the 
turtle hopper from one side of 
the river bank to the other b 
y jumping onto the turtles' ba 
cks while they are at the surf 

9830 PRINT " If one of them duck 
s and your hopper is still on 
the turtle then you are in for 
an early, and very cold, bath 

9840 PRINT " You score ten point 
s for each successful jump tha 
t you make and hundred points 
if you can reach the other sid 

9850 PRINT " You may define the 
keys you use for left and 

right by pressing ~D~." 

9860 PRINT " Otherwise use 
l*j“" to move left and 
rl; "" for right." 

9870 PRINT #1: FLASH 1;" Press ' 
D~ or ’"S'" to start game " 

9880 IF INKEY* -"s" OR INKEY* 

="S" THEN RETURN 

9885 IF INKEY* ="d" OR INKEY* 

-"D" THEN GO TO 9700 

9890 GO TO 9880 

9899 REM intro 

9900 BORDER 6; PAPER 6: CLS 
9905 PRINT 

9908 FOR g=l TO 5 

9910 PRINT AT 0,11; INK 0;"TURT 
LE HOP" 

9920 NEXT g 

9925 FOR g=17 TO 19s PRINT PAPE 
R 7; AT g,0;,,s NEXT g 
9930 PAPER 7: PRINT AT 17,1; IN 
K 1;"RS"; AT 18,1; INK 2;"NQ“; A 
T 19,1; INK 4:"PQ" 

9940 FOR g=24 TO 3 STEP -1 

9945 PAPER 7s INK 3 

9930 PRINT AT 17,g;" FGHIJ " 

9932 PRINT AT 18.q; "KL(3»iqB)MB 

9935 PRINT AT 19.q; "ABCD E_ " 

9960 BEEP .l,g 
9970 NEXT g 

9975 PRINT AT 17,3;" 

9976 PRINT AT 18,3;" 

9977 PRINT AT 19,3;" 

9980 PRINT AT 17.1;"< lq2siol> "t 
AT 18,1;" <q7;iq4) »; AT 19,1;"(g 
5:iq5) " 

9985 RESTORE 9986: FOR g=l TO 11 
: READ a,b: BEEP a/2,b: NEXT g 

9986 DATA 1,7,. 66,7,.33,7,1,7,.6 
6 ,10,. 33,9,.66,9,.33,7,.66,7,.33 
,6,2,7 

9990 PRINT AT 21,3; INVERSE 1;" 
PRESS ANY KEY TO START" 

9991 FOR g-1 TO 100s BEEP .01,g/ 
2s IF INKEY* <> "" THEN RETUR 
N 

9995 NEXT g 

9996 PRINT AT 21,0,, 

9997 GO TO 9930 

9999 SAVE "Turtle Hop" LINE Is S 
AVE "Graphics" CODE USR "a",21* 
8 
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The easiest way to become computer literate 


All the best listings in 
Basic, machine code, 
Forth and many more 
languages plus 

• Programming advice 

• Language courses 

• Software reviews 

EXPAND YOUR MIND AND 
YOUR MACHINE 

SUBSCRIBE TO SINCLAIR 
PROGRAMS TODAY 


! SUBSCRIPTION FORM 

Mail to: EMAP 

I 67 Clerkenwell Road, London EC1R 5BH 
I Yes — I’d like to subscribe to Sinclair Programs 
I (12 issues — price £13.20) 

I I enclose a cheque for £_ 

I Please charge my credit card: 

I Card name_Number_ 

I Name_Address_ 

I_ 

I Signature_Date_ 

I N.B. This offer applies to U.K. subscribers only. Overseas rates available on request. 


A world of activity for you 


and your Sinclair 





Whether you have a ZX80, ZX81 or Spectrum — we can show you 
\v\ there's far more to your Sinclair than you ever thought possible. 
That's the active, lively world of Sinclair User — the first magazine 
written specially for everyone who owns or uses a Sinclair 

computer. 

Every month, there is a whole range of games, business ideas and 
bright new ways to learn. There is the Sinclair User Club, with 
special exclusive member offers. There are technical facts, 
development news and advice, plus hints from other users and 
answers to queries — in fact everything you need to be an 
interested, informed and ACTIVE Sinclair user. 
There’s just one problem — Sinclair User sells out fast! So make 
sure you don't miss your copy: order it today from your 
newsagent — or complete the subscription 

form below and we will _—- — ^ 

send it to you direct, every month. 

"' _::**«** .. _ 

2d " cat 
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Y OU CONTROL a launch pad at 
the bottom of the screen and 
must manoeuvre it to catch 
Mervin the Mouse. When Mervin 
hits the launch pad he catapults into the 
cheese at the top of the screen. Mervin 
has five lives and you gain one point for 
each piece of cheese he eats. 

Mervin the Mouse was written for 
the 16K Spectrum by Phillip and Collin 
McCabe of Stockport, Cheshire. 


5 REM reading data 

6 FOR n= USR "a" TO USR "e" + 
6: READ k: POKE n,k: NEXT n 

7 GO SUB 9000: LET hi=0: LET 
c=0: LET s*0: LET a=l: LET b=l 

9 REM printing screen display 

10 BORDER 0: PAPER Ol INK 5: C 
LS 

15 IF s>hi THEN LET hi=s: CLS 

16 LET s=0: LET q=5: LET c=0 

20 PLOT 8,168: DRAW 239,0 
30 PLOT 8,167: DRAW INK 5;0,- 
167 

35 PLOT 247,167: DRAW INK 5;0 
,-167 

45 FOR n=2 TO 8 

55 PRINT AT n,2; INK 6; BRIGH 

A":’NEXT n 

59 REM main program 

60 LET n=15: LET x=20: LET y= 

INT < RND *10)+5: LET dx=x: LET 
dy=y 

65 IF y>28 OR y<3 THEN GO SUB 
150 

70 IF x<2 THEN LET a=-a 
75 IF SCREEN* (x,y> <> » •• TH 
EN GO SUB 125 

80 IF x >20 AND <y=n+l OR y=n+2 
OR y=n+3) THEN LET a=-a: BEEP 
.008,10: LET y=y+l 

85 PRINT AT dx,dy;“ "j AT x,y 
;'1B": LET dx=x: LET dy=y _ 

90 PRINT AT 21,n; INK 3; BRIG 
HT 1; ” £]>E » 

95 LET n=n+< INKEY* = "0~ AND n 
<■* 26)-( INKEY* -"l" AND n>0) 

100 IF INKEY* = "9" THEN PAUSE 
0 

105 LET x=x-a: LET y=y+b 
110 IF x >21 THEN GO TO 165 
115 PRINT AT 0,3; "SC"' 1 } ■; AT 0 
,13;"HI=";hi; AT 0,22;"MICE= ";q 

120 GO TO 65 
125 BEEP .008,20 
130 PRINT AT dx ,dy; 11 AT x,y 
; INK 5; "_B" 

135 IF level=2 THEN LET a=-l 

140 IF x<ll THEN LET s=s+l: LE 
T c=c+l 

141 IF c=loop THEN GO TO 500 

145 RETURN 

150 BEEP .008,30 

155 LET b=l-2*(y>28 OR y<2) 

160 RETURN 

165 PRINT AT 0,22;“MICE= ":q 

170 LET q-q-1 

171 PAUSE 2 

175 FOR u=0 TO 6: FOR d=6 TO 0 
STEP -1: BEEP -009,U! BEEP .009, 
d: NEXT u: NEXT d 

176 IF q <> O THEN GO TO 185 


179 REM new game routine 

180 IF q<1 THEN FOR z=l TO 6: 
PRINT AT 10,6: INK 5; FLASH 1;“ 
GAME OVER"; AT 12,4;"ENTER SKILL 

LEVEL 1-2": FOR d=40 TO 0 STEP 
-5: BEEP .009,d: NEXT d: NEXT z: 

LET a=l: LET b=l 

181 IF INKEY* ="1" THEN LET 1 
oop=196: LET level=1: CLS : GO T 
0 10 

182 IF INKEY* = "2" THEN LET 1 
oop=196: LET level=2: CLS « GO T 
0 10 

183 IF INKEY* <> THEN GO 
TO 181 

184 GO TO 181 

185 LET m= RND 

190 PRINT AT 21,0}" 


210 DATA BIN 00011000, BIN 001 
11100, BIN 01111110, BIN 1111011 
1, BIN 11111111, BIN 11101111, B 
IN 01111110, BIN 00111100 

215 DATA BIN 11000011, BIN 110 
11011, BIN 01111110, BIN 0101101 
O, BIN 01111110, BIN 01100110, B 
IN 01111110, BIN 00111100 

216 DATA BIN 01100000, BIN Oil 
00011, BIN 11100111, BIN 1111111 
1, BIN 11111111, BIN 11100111, B 
IN 01100000, BIN 01100000 

217 DATA BIN 01111110, BIN 111 
11111, BIN 11100111, BIN 1010010 
1, BIN 10111101, BIN 11100111, B 
IN 11111111, BIN 00100100 

218 DATA BIN 00000110, BIN 110 
OOllO, BIN 11100111, BIN 1111111 
1, BIN 11111111, BIN 11100111, B 
IN 00000110, BIN 00000110 

299 REM save routine 

300 SAVE "-MERVIN-" LINE 1 
400 REM printing new sheet 
500 LET a=l: LET b=l: LET c=0: 

FOR J = 1 TO 40: PRINT AT 11,10; 
FLASH 1; INK RND *6;"NEXT SHEET 
“: BEEP .008,j: NEXT j: CLS : GO 
TO 20 

8999 REM printing instructions f 


9000 PRINT BRIGHT 1; INK 6|“ 
- MERVIN ON THE MOON - 


9010 PRINT ' BRIGHT 1; INK 6;"Yo 
u control a launch pad ( CPE ) at 
the bottom of the screen and wh 
en you catch Mervin you get a po 
int.You also get a point when Me 
rvin eats some cheese." 


9015 INK 4 

9020 PRINT BRIGHT 1;’' 
of the game is to help 
e mouse to eat as many 
cheese from the moon 
le. He has a pair of 
osters on his back to 
get to the moon but 
hold enough fuel for 
d at the bottom of the 
catch mervin to 
s rocket boosters for 


The idea I 
MERVIN th I 
chunks of ■ 
as possib 
Rocket Bo 
help him 
they only 
one jourm 

refuel hi 
another j 


9025 PRINT BRIGHT 1;"When you r 
each 196 you go on to another pi 

9030 POKE 23692,255 
9040 PRINT #0; FLASH 1; BRIGHT 1 
; INK 6;" PRESS ANY KEY TO BE 
GIN " 

9050 IF INKEY* THEN GO TO 

9050 

9060 IF INKEY* <> “" THEN FLA 
SH 0: GO TO 9100 
9070 GO TO 9050 

9100 CLS : PRINT BRIGHT 1; I 

NK 6;"You use keys 1=1 eft 


to control the launch pad" 

9105 PRINT BRIGHT 1; FLASH 1 

; INK 4;" ENTER SKILL LEVEL 

1-2 

9110 IF INKEY* ="1" THEN LET 1 
oop=196: LET level=1: RETURN 
9115 IF INKEY* ="2" THEN LET 1 
oop=196: LET level=2: RETURN 
9120 GO TO 9110 
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D ROP sections of bridge onto the 
foundations as you pass over¬ 
head. A man waits at the edge 
of the bridge and he moves one step 
each time you pass. If you fly overhead 
and do not drop the section in the 
correct place he will step off the edge. 
You only have three life belts with 
which to rescue him if he falls so care 
should be taken. 

Bridge Builder was written for the 
16K Spectrum by Gordon Locke, of 
Wellesbourne, Warwickshire. 
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Continued from page 48 

-l! PRINT AT 1,2}"MQO "i NEXT 

970 FOR z-2 TO 12: PRINT AT 2, 
0;"MOO"j AT r-1,Oj" P BEEP .0 
l,2i NEXT 2 

9B0 PRINT AT 11,0} INK 0}" J. " 
•" H FOR 2-9 TO 1 STEP -1: PR 
INT AT ».0: “UNO ”'" “: NEXT z 

983 PRINT AT 1,0}" 

990 INK 0: RETURN 

1000 FOR z=25 TO 30: PRINT AT 1 
1,2}“ I"} AT 12,2}" If: BEEP .01 
, 2 : NEXT z 

1001 INK 1: PRINT AT 11,31}“ 

AT 12,31}“ “ 

1010 FOR 2-0 TO 29: BEEP .001,33 
: PRINT INK 1} AT 12,z}“50 poin 
ts -for completing bridge"(z+1>}“ 
CG": NEXT 2 

1020 PRINT AT 12,29}“ge “ 

1030 PRINT FLASH 1} AT 12,0} OV 
ER 1} INK 8,,: FOR z = l TO 5: LET 
s-a+1: PRINT FLASH 1} PAPER 1} 
INK 7} AT 16,30}: BEEP .01,-2: 
NEXT 2 : PRINT PAPER 3} INK 7} A 
T 0,16}* 

1040 PRINT AT 12,0,,: PRINT AT 
13,6} TAB 26} 

1100 LET n-3: GO TO 82 

3000 LET n-n+1: FOR z=17 TO 20 

3010 PRINT PAPER 2-16} INK 7} A 
T IS,10}“GLUG!!“} PAPER 8} AT z- 
1, n} “ "} AT 2 , n} "1_“ ; AT z + l,n}“J. 
": BEEP .1,22-2 

3013 PRIfJT PAPER 1} AT z,n} INK 
7}“K“: BEEP .1,21-z 
3020 NEXT z 

3030 BEEP .1,48: BEEP .1,36: BEE 
P .1,24: BEEP 1,12: BEEP .2,0: 

3040 PRINT AT 20,n} PAPER 1} IN' 
K 7|“_l“ 

3050 PRINT AT 10,11} INK 1}"GAH 
E OVER”} AT 10,11}“DEMO" AND dm 


3070 CLS 

3080 IF dm THEN GO TO 4000 
3100 FOR z-1 TO 10 
3110 IF b <- h(z) THEN NEXT z: 
GO TO 4000 

3120 PRINT “you have got one of 

today's. highest scores, plea 

se enter.. your name." 

3133 LET c=21: LET z*="?ABCDEFGH 
IJ KLMNOPQRSTUVWXYz!.-+*#" 

3137 LET h*<10>=“": LET z*=z*+z* 
: PRINT AT 11,16}"''"; AT 10,16} 
PAPER 4}“ “} PAPER 7} AT 15,10} 
3140 FOR z=l TO 10 
3142 PRINT AT 15,10+2} PAPER 7} 
INK 3} FLASH 1}“ “ 

3160 PRINT AT 10,0} PAPER 6;z*( 
c TO c+26) 

3170 PAUSE O: LET c=c+< INKEY* = 
"8“)-( INKEY* -"5"): IF c>34 THE 
N LET c-1 

3172 IF c<l THEN LET c-34 

3173 IF INKEY* = CHR* 13 THEN 
GO TO 3190 

3175 IF INKEY* ="0“ THEN LET h 
*(10,2)=2*(c+16): PRINT PAPER 7 
} AT 15,11}h*(10): FOR x = l TO 50 
STEP 10: BEEP .01,*: NEXT x: NE 
XT z: GO TO 3190 
3180 GO TO 3160 

3190 LET h(10)=s: PRINT AT 15,1 
1} FLASH 1} INK 2} PAPER 6}h*(10 

) 

3200 LET f=0 
3210 FOR z=l TO 9 
3213 BEEP .003,2 

3220 IF h <2)<h <z + l) THEN LET t= 
h (z + 1>: LET h<z+l>-h(z>: LET h(z 
)-t: LET a*=h*(z+1>: LET h*(z+l) 
=h *(2 >: LET h*(z >-a*: LET f=l 
3230 NEXT 2 

3240 IF f=l THEN GO TO 3200 
4000 CLS : PRINT INK 0"R R R 
RRRRRRRR PAPE 
R 1} INK 7;" TODAY'S HIGHEST 

SCORES “ON BRIDGE FA 

LL " , 

4010 FOR z=l TO 10: PRINT AT *♦ 
4,3}h(z>} TAB 18;h*(z )1 NEXT z 
4020 PRINT AT 20,5} FLASH 1} IN 


K 2;"PRESS <SPACE> TO START" 

4030 FOR o=l TO 5: FOR z-1 TO 7 
4040 FOR x—1 TO 10: PRINT AT x+ 
4,5} PAPER 2 } INK 9} OVER 1} TAB 
29}: IF INKEY* »“ " THEN GO T 
0 9 

4050 NEXT x: NEXT z: NEXT o 
4070 LET dm=l: GO TO 10 
9900 FOR z= USR "a" TO USR “u“+ 
7: READ x: POKE 2 ,x: NEXT z 
9902 DATA 127,2,31,55,103,103,63 
,31 

9904 DATA 240,1,131,255,255,240, 
224,192 

9906 DATA 0,0,13,28,63,63,63,12 
9908 DATA 255,138,140,136,240,16 
0,192,128 

9910 DATA 255,136,x,x,255,136,x, 

9912 DATA 255,x,x,x,133,189,219, 
153 

9914 DATA 0,x,128,192,252,x,x,48 

9916 DATA 153,24,24,28,22,18,226 
,131 

9918 DATA 0,x,60,90,126,24,60,21 
8 

9920 DATA 24,x,x,x,60,102,195,12 
9 

9922 DATA 0,x,60,90,126,153,126, 
24 

9924 DATA 195,231,233,x,x,x,x,x 
9926 DATA 15,63,124,224,x,124,63 
,15 

9928 DATA 255,x,0,x,x,x,253,x 
9930 DATA 240,252,62,7,7,62,252, 
240 

9932 DATA 32,44,36,36,52,44,36,3 
6 

9934 DATA 60,90,126,24,60,218,25 

5, x 

9936 DATA 121,103,97,97,121,102 
9938 DATA 224,x,240,x,248,252,23 
4,255 

9940 DATA 7,7,13,15,31,63,127,23 
3 

9942 DATA 255,72,40,16,7,4,2,1 

9998 SAVE "BRIDGE" LINE 9999: SA 
VE "udg" CODE USR "a",21*8 

9999 LOAD "" CODE USR "a": RUN 


10 CLEAR USR “A"-201 
20 CLS : PRINT “ This progra 

m demonstrates a series of 

short machine code routin 

30 GO SUB 9000 

40 PRINT '" (in 'EXPLODE':A 
sound routine which makes a 

good explosion. " 

50 FOR n=l TO 4: RANDOMIZE USR 
EXPLODE: PAUSE 50: NEXT n 
60 PRINT “ ( i2) 'Scroll left 
':Scrolls screen left 8 

pixels with wrap-around" 

70 FOR n=l TO 3: RANDOMIZE USR 
left: NEXT n 
80 PAUSE 1: PAUSE 100 
90 PRINT "<i3> tiScrol 1 right' 
:Scrolls screen right wit 

h wrap- around" 

100 FOR n=l TO 3: RANDOMIZE USR 

right: NEXT n 

110 PAUSE Is PAUSE 100 

120 PRINT '" (,i£> Scroll up' 

:Scrolls screen up,cl earing b 

ottom line." 

130 FOR n-1 TO 10: RANDOMIZE US 
R up: NEXT n 
140 PAUSE 1: PAUSE 100 
150 PRINT AT 8,0}" (15) Scro 

11 down':ScrolIs screen 

down 1 1ine,clearing top lin 

e" 

160 FOR n=l TO 3: RANDOMIZE USR 

down: NEXT n 

170 PAUSE 1: PAUSE 100 

180 PRINT . <i6):'Clear': 


Clears left-hand column of 

screen.Used in conjunctio 

n with Left' and 'Right 

' to avoid wrap-aroun 

d. “ 

190 FOR n=l TO 3: RANDOMIZE USR 
left: NEXT n: P.AUSE 100 
200 RANDOMIZE USR clear 
210 FOR n=l TO 30: RANDOMIZE US 
R left+USR clear: NEXT n 

8999 STOP 

9000 LET UP-USR “A"-200 
9010 LET DOWN-UP+4 
9020 LET LEFT=D0WN+55 
9030 LET RIGHT=LEFT+12 
9040 LET CLEAR-RIGHT+12 
9050 LET EXPLODE-CLEAR+14 

9060 FOR N=UP TO EXPLODE+25: REA 

D A: POKE N,A: NEXT N 

9070 DATA 205,254,13,201 

9080 DATA 33,255,86,6,24,14,224, 

17,32,0,237,82,126,23,119,43,13, 

32,247,14,32,17,32,7,237,82,126, 

25,119,43,13,32,247,16,226,33,0, 

64,17,224,0,14,8,6,32,34,0,35,16 

,251,25,13,32,245,201 

9090 DATA 33,1,64,17,0,64,1,254, 

23.237.176.201 

9100 DATA 33,253,87,17,254,87,1, 

254.23.237.184.201 

9110 DATA 33,0,64,17,32,0,6,192, 

54,0,25,16,231,201 

9120 DATA 33,235,73,17,203,253,6 

2,255,211,254,68,4,16,254,62,0,2 

11.254.68.4.16.234.23.36.237.201 
9130 RETURN 



S CREEN BLAST demonstrates a 
series of short machine code rou¬ 
tines. The first of these gives an 
explosion and sound effect, while 
“left”, “right”, “up” and “down” are 
scrolling routines. There is a “clear” 
routine which clears the left-hand col¬ 
umn of the screen and is used in con¬ 
junction with “left” and “right” to 
avoid wrap round. 

Written for the 16K Spectrum by 
Simon Wallis of Richmond, N. Yorks. 



















P LAYING THE part of Hewbert 
the Egg Thief you must try to 
steal seven eggs on each level in 
as little time as possible. Each time an 
egg is collected the storm clouds will 
move down and you will be sent back to 
the middle of the screen. On the second 
level the helicopter will become an eagle 
and the storm clouds will become a 
convoy of helicopters. All of these ob¬ 
jects must be avoided. Use cursor keys 
to move, and collect eggs by sliding 
down the ropes. 

Written for the 16K Spectrum by 
Mark Mitchell of Barry, S. Glamorgan. 



Hewbent 7H£ £QQ 7HIC7 


1 GO SUB 9000: INPUT "Level ? 

"; LINE t*: PAPER 7: BORDER 7: 

INK O: CLS : LET r*-" R T S R S 
Z. £_ s_ r R - 

2 LET i=2: DIM y*<2,4>: LET y 
*<1>-” JK “i LET y*<2) =" BC 
DIM x*(2,2)i LET x* (I>: LET 

xl(2)=“DE" 

3 LET f-0: LET n-0 

4 LET k=0: LET s=100 

5 LET x-6: LET y«16 

6 LET b-0: LET d=0 

7 LET p=0 

8 LET t=l 

9 LET k*="the cloud*!" 

11 PRINT AT 19,0; INK 3; PAPER 

7;" FF FF FF FF FF FF 

FF " 

12 PRINT AT f,2;r* 

13 LET n*=" OP OP OP OP 

OP OP OP MN MN MN MN 

MN MN MN" 

14 PRINT AT 20,0; INK 2; PAPER 
7; n* 

20 PRINT AT 6,16;"R" 

23 PRINT AT 19,0; INK 3; PAPER 
7; " LL LL UL LL L.L LL 

30 IF INKEY*-"" THEN GO TO 30 

40 FOR 1-3 TO 28 STEP 2 

41 LET b=b+l: IF b>=21 THEN L 
ET b=0 

42 FOR p=0 TO t: NEXT p 

43 PRINT AT 18,3; INK 3; PAPER 

7; " F F F F F F F " 

44”>RINT AT 19,^; INK 3; PAPER 
7; "_I_ X X X X X X " 

45 PRINT AT b,d; INK 2;x*<l> 

46 PRINT AT b+l,d; INK i;x*<2> 

47 PRINT AT x,y; M " 

30 PRINT AT x ,y; “_R|' 

53 PRINT AT x,y;" " 

60 PRINT AT 17,1;y*(1) 

97 FOR p=0 TO t: NEXT p 

100 LET x —x-(INKEY*="7" AND x>2 
)+(INKEY**"6“ AND x<19) 

110 LET y=y-<INKEY*—"5" AND y>2 
)+(INKEY*="8" AND y<29): PRINT A 
T x ,y; "_R" 

115 IF SCREEN* <x,y><>"" THEN 
GO TO 6000 

120 IF y-2 AND INKEY*—"5“ THEN 

LET k=3: GO TO 5000 

130 LET r*=r* <2 TO )+r*(l) 


132 PRINT AT f,2;r* 

200 IF x >17 THEN GO SUB 7000 
300 PRINT AT 0,0;"Time left-";I 
NT s;" LET s-s-.S: IF *<-0 TH 
EN LET k=5: GO TO 5000 
310 IF s—30 THEN PRINT AT f,2; 

LET f«f + l 

800 PRINT AT 17,l+l;y*<2> 

810 IF SCREEN* <x,y><>“” THEN 
GO TO 6000 
893 NEXT 1 

897 PRINT AT 17,29;" “ 

898 PRINT AT 18,0; INK 2;x*<l) 
900 GO TO 40 

5000 IF k—2 AND x-17 THEN LET k 
*-“the Irish helicopter" 

5005 IF k=5 THEN LET k*-"the ti 


5010 IF k=3 THEN LET k*="the 
bird" 

5015 IF k=4 THEN LET k*="the 
clouds" 

5017 IF kOl OR k< >2 OR k< >3 THE 
N LET k-4 

3020 FOR a-0 TO 40: BEEP .005,*: 

NEXT a: CLS : PAUSE 0 
3030 INK 7: PAPER 0: BORDER 0: C 
LS 

5050 PRINT AT 0,0;"WHOOPS!You we 
re killed by ";k* 

5060 PRINT '•"Score 

";n;" eggs in the 

time of ";s 

5070 PRINT "seconds." 

5890 BORDER 7: PAPER 7: INK 0 
5900 PAUSE O: RUN 

6000 IF SCREEN* (x,y)<>'^F“ OR SC 
REEN* (x,y)<>“i" THEN LET k-2 
6010 IF k=3 THEN LET k-3: GO TO 
6020 

6015 IF k-2 THEN LET k-2: GO TO 
6020 

6017 LET k=l 
6020 GO TO 5000 

7000 IF y=3 OR y=7 OR y=l1 OR y- 
15 OR y-19 OR y-23 OR y=27 THEN 

LET k-1: GO TO 7010 

7001 RETURN 


7010 PRINT AT 20,y+l;“ “ 
7020 PRINT AT 21.y+1i" OU‘ 
7025 PRINT AT 17,2;" 

LET i 



7027 PRINT AT f,2;" 


7028 IF n-7 OR n-14 THEN GO TO 
8000 

7030 LET x-7: LET f-f+ll IF f-7 
THEN LET k=4l 80 TO 5000 
7040 GO TO 40 

8000 PAPERO: BORDER O: INK (INT 
<RND*4>+2>: CLS : PAUSE 0 
8010 BEEP 1,50: PRINT "Well you* 
ve been lucky so far, but I wou 
ldn't recon on your chances n 

8020 PAUSE 0: PAPER 7: BORDER 7: 
INK 0: CLS : LET t-t-1 

8022 LET y* <1)-" _OM" : LET y*<2> = 

" DC " 

8023 LET x*(l)=“( 2»ig8 )": LET x* 
(2> —” (2»ig8 )LEf i=4 

8024 LET r*-" JK JK «JK BC 
JK BC OK " 

8025 GO TO 3 

9000 FOR d-USR "a" TO USR "u"+7: 

READ e: POKE d,e: NEXT d 
9010 DATA 60,24,233,24,24,36,36, 
102 

9020 DATA 63,2,63,79,79,63,136,1 
27,224,0,236,242,242,236,64,240 
9030 DATA 7,29,103,137,8,8,28,42 
,224,184,230,145,16,16,56,84 
9040 DATA 48,40,24,48,40,24,48,4 
O 

9030 DATA 7,125,135,137,8,8,28,4 
2,224,190,225,145,16,16,56,84 
9060 DATA 24,48,40,24,56,16,0,0 
9070 DATA 255,2,63,79,79,63,136, 
127 

9080 DATA 248,0,236,242,242,236, 
64,240 

9090 DATA 16,32,16,32,16,32,16,3 | 
2 

9100 DATA 4,68,63,31,31,15,7,0 
9110 DATA 32,34,252,248,248,240, 
224,0 

9120 DATA 0,0,0,0,1,2,2,4,0,0,0, 
0,128,64,64,32 

9140 DATA 0,64,63,31,31,15,7,0 
9150 DATA 62,126,126,252,235,254 
, 22,0 

9160 DATA 4B,118,255,255,15,31,3 

2,0 

9170 DATA 24,60,126,255,255,126, 
60,24 

9180 DATA 0,2,252,248,248,240,22 
4,0 

9999 RETURN 
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HIRE SPECTRUM 
SOFTWARE 


OVER 280 different tapes for hire in¬ 
cluding ARCADE, ADVENTURE, BUS¬ 
INESS. EDUCATIONAL, etc. -even an m/c 
Compiler, FREE 26 page catalogue. FREE 
newsletter, with hints, tips and our top 
tape chart. 

OVER 3000 tapes in stock, with up to 60 
copies of each title for fast service. All 
tapes sent by 1st class post. 

LOWEST PRICES - hire up to 3 tapes at a 
time, from 63p each for two weeks hire. 
(Plus p&p and VAT). European members 
welcome. 

Tapes for sale at DISCOUNT prices. 

Telephone 01-661 9240 (9am - 5pm) or 
write for further details, or complete the 
coupon and JOIN TODAY - you've nothing 
to lose! 


11 SAVE £3.0q71 


For a limited period, we 
are offering HALF-PRICE 
membership to readers of 
this magazine. Join now. 
LIFE membership is only 
£3.00 (normally £6.00). 


I SWOP SHOP I 


A new service from N.S.L. 
SWOP your unwanted 
tapes with tapes from 
other members for a small 
handling charge of only 
60p (plus p&p and VAT) 




| 200 Mukjrave Road. Cheam, Surrey SM2 6JT 

I I enclose cheque/postal order for £3.00 for LIFE membership. Please rush 
5 my membership kit to me. If, within 28 days, I’m not delighted with your 
I service you'll refund my membership fee.. 

5 Name_ 


SPECTRUM SOFTWARE 
EXCHANGE CLUB 

We are now operating the 
only Program Exchange Club 
that specialises in the current 
top twenty titles. Life Mem¬ 
bership is FREE. 

Write for details to 

HAM SOFTWARE LIBRARY, 
HAM LANE, ELSTEAD, 
SURREY GU8 6HQ. 

























C OLLECT ALL the green 
bushes and the blue bonus 
plants in the Forest Maze of 
death. There are no ghosts chasing you 
but there are other hazards to face. 
Once you choose a particular path you 
move at high speed until a different 
movement key is pressed. If you hit any 
of the walls you will lose one of four 
lives and a cross will be erected on that 
spot. To alter the speed of the game 
change the BEEP statement in line 31. 

Written for the 16K Spectrum by 
Tim Carter of Shrewsbury, Salop. 


1 REM FOREST MAZE 

2 CLEAR 32570: GO SUB 59 

3 REM INITIALIS 

E 

4 LET D»0: LET SC=0: LET L-4: 
BORDER 6: PAPER 6: BO SUB 63 

5 LET B=999: LET P*=*"G“: POKE 
23658,8: LET C=0s BO SUB 47 

6 LET X«10: LET Xl=10: LET Y= 
13: LET Yl=13: LET D=0 

7 PRINT AT Y,Xj INK OjP* 

8 IF INKEY*-"" THEN GO TO 8 

9 REM MAIN LOOP 

10 IF C-l THEN PRINT AT Y,X; 
BRIGHT l;”*"l LET C-0: BO TO 12 

11 PRINT AT Y,Xi" " 

12 LET K*-INKEY* 

13 IF K*“"“ THEN GO TO 19 

14 IF K*-"Z" THEN LET P*-”®" 


15 IF K*- n X” THEN LET P*=" 

16 IF K*-"P“ THEN LET P*=" 

17 IF K*«"L" THEN LET P*=" 

18 IF K*="0" THEN GO SUB 41 

19 IF P*”"©’ THEN LET Xl-X-1 

20 IF P*«"®“ THEN LET X1=X+1 

21 IF P*="<»" THEN LET Yl-Y-1 

22 IF P*-"»" THEN LET Yl-Y+1 

23 LET B-B-l: PRINT AT 6,28}Bj 

24 IF D-255 THEN PRINT AT 13, 
221 FLASH 1| INK 3{ PAPER 6| “«0 
NUS*"jAT 14,24j FLASH 0;B: LET S 
C-SC+B: FOR A-0 TO 40: POKE MC+7 
,0: POKE MC*16,29: LET M-USR MC: 

NEXT A: LET L-L+2: GO TO 5 

25 IF ATTR (Y1,X1)*50 THEN GO 
TO 34 

26 IF ATTR <Y1,X1>-113 THEN L 
ET SC-SC+50:'POKE MC+7,100: FOR 


52 


SINCLAIR PROGRAMS September 1984 






A-0 TO lOl LET M-USR MC: PAUSE 3 
i NEXT A 

27 IF ATTR <Y1,X1>=51 THEN LE 
T Xl-2i LET Yl-ll 

28 IF ATTR <Y1,X1) = U2 THEN L 
ET Ol 

29 IF ATTR <Y1,X1>=49 THEN LE 
T XI“2: LET Yl-10: POKE MC+7,0: 

LET M=USR MC 

30 IF ATTR <Yl,Xl>=52 THEN LE 
T SOSOS l LET 0=0 U POKE MO 16 
,28: POKE MC+*7,230: LET M=USR MC 
: POKE MC+16/29: PRINT AT 2,28;S 
C 

31 PRINT AT Y1 ,X1; INK 0;P*: B 
EEP .007,3: LET Y-Yli LET X=X1 

32 GO TO 10 

33 REM LOSE A LI 
FE 

34 PRINT AT Y,X; FLASH 1;P»: P 
OKE MC+16,28: POKE M07.200: FOR 

A=0 TO 10: LET M=USR MC: OUT 25 
4,A: NEXT A: BORDER 1: PRINT AT 
Y,X; BRIGHT 1;"*": POKE MC+16,29 
: LET L=L-1: FOR A=0 TO 100: NEX 
T A 

35 FOR A=1 TO L: PRINT AT 4,A+ 
27; ”G ": NEXT A: LET P*="<3" 

36 IF L=0 THEN GO TO 39 

37 LET X=10: LET Y=13: LET Xl= 
10: LET Yl=13: GO TO 7 

38 REM GAME OVER 

39 PRINT AT 4,27;. PRINT A 

T 10,22; FLASH 1;"GAME”;AT 10,27 
;"OVER": POKE MC+16,29: FOR A=5 
TO 255 STEP 5: POKE MC+7.A: LET 
M=USR MC: NEXT A: FOR A=0 TO 400 
: NEXT A: GO TO 4 

40 REM PAUSE MOD 

E 

41 PRINT AT Y1,X1;P*: FOR A=0 
TO 100:- NEXT A 

42 FOR A=0 TO 500 

43 BORDER 2: BORDER 6: BORDER 
4: BORDER 1 

44 IF INKEY*<>"" THEN PRINT A 
T Y1,XI; H ”« RETURN 

43 NEXT A: BO TO 42 

46 REM DRAW MAZE 

47 BORDER 1: PAPER 6: INK Ol C 
LS : IF L>4 THEN LET L=4 

48 FOR D=2 TO 19: PRINT AT 1,D 
; INK 2; "EB" ; AT 20,D; "HS" ; AT D,l;" 
SJ"; AT D,20;"SB": INK 4;AT D,2; M + + 
• ♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦": NEXT D 

49 INK 1: BRIGHT 1: PRINT AT 2 
,2; "X”; AT 2,19; "X"; AT 19,2; "X"; A 
T 19,19;“X" : BRIGHT 0: INK 3 

30 PRINT AT 10,1;"I";AT 11,1;" 
!"; INK 1;AT 10,20;AT 11,20; 
">"; OVER 1;AT 10,20;“-“;AT 11,2 
Or—": OVER O 

51 INK 2: PRINT AT 1,1; "4T«AT 
1,20; "V; AT 20,1;"YS";AT 20,20; "*K 
" ; AT 10,10; "^";AT 11,10;"W 

52 PRINT AT 9,1;"V";AT 12,1; "A 

" ; AT 9,20;"*": AT 12,20; '(ft"; AT 14 
,8; "/fEETaSE-*" ; AT 15,8; "83" : AT 16,8; 
"E3" ; AT 17,8; ; AT 15,13;"0";AT 

16,13; "H" : AT 17,13; "*" 

33 PRINT AT 16, 10; "<&" : AT 4,8; 
"■ft": AT 4,13;"<fc";AT 3,8;"B";AT 5, 
13; "63" ; AT 6,8;"B I, ;AT 6,13; "BS" ; AT 
7,8; '"'aSEEEfc'" ;AT 5,10; 

54 PRINT AT 12,5;" ; AT 13,3; 

"BJ" ; AT 14,5; "®" ; AT 15,4; "yfiS/" ; AT 
16,4; ; at 12,15; AT 13,16; 

"0" : AT 14,16; "0" ; AT 15,16;">S?V' 

53 PRINT AT 16,17;"W";AT 5,4;" 

A"; AT 6,4; ; AT 7,5;"0";AT 8,5 

; "0" ; AT 9,5; "^";AT 4,2;"»";AT 4 
,19;"«";AT 14,2;"»":AT 14,19;"«" 

; AT 5,17; " (ft" ; AT 6, 16: "; AT 7,1 
6;“0";AT B,16;"0";AT 9,IS:"*®/" 

56 INK 0: PRINT AT 2,22;"SCORE 
";SC;AT 4,22;"LIVES";AT 6,22;"B 

ONUS ";B: FOR A=1 TO L: PRINT AT 
4,A+27;"G": NEXT A 

57 PRINT AT 16,23? PAPER 4;"P: 
UP ";AT 17,23;"L:DOWN “;AT 18, 


23;"Z:LEFT ";AT 19,23; "X: RIGHT"; 
AT 20,23;"0:PAUSE": RETURN 

58 REM GRAPHICS 

6 M.CODE 

59 FOR A=USR "A" TO USR "P"+7: 
READ B: POKE A,B: NEXT A 

60 DATA 60,66,151,136,136,135, 

66.60.60.66.233.17.17.225.66.60, 

36.102.165.133.161.129.66.60.60, 

66.129.133.153.165.102.36.3.15.2 
8,55,106,125,202,173,192,112,184 
,108,150,110,203,85,214,201,118, 

109.50.29.14.3.171.83.174.182.20 

4.120.240.192.255.181.203.179.20 

5.181.203.255.24.60.118.90.239.2 
19,181,219,240,188,86,187,239,86 
,188,240,15,61,106,221,247,106,6 

1.15.219.181.219.239.90.118.60.2 
4,0,8,28,54,28,8,0,0,195,102,60, 
44,52,60,102,193,24,24,126,24,25 
,90,189,126 

61 LET MC=32370: FOR V-MC TO M 
C+20: READ E: POKE V,E: NEXT V: 
DATA 58,72,92,13,15,15,30,0,243, 

211.254.238.16.67.16.254.29.32.2 
46,251,201: RETURN 

62 REM INSTRUCTI 
ONS 

63 LET A*=". 

.FOREST MAZE. 

... SINCLAIR PROGRAMS.S 

EPTEMBER 1984. 

.KEYS TO USE:.Z= LEFT. 

X= RIGHT.P= UP.L= DOWN 

.0= PAUSE.** 

** PRESS ANY KEY TO PLAY #**+" 

64 CLS : LET B*="<11#IGB:iF:10 
:iRsiEriS:iT:ig8:iM:iA:iZtIE:10* 
igB) GO SUB 67 

65 LET B$="(3*ig8> ©©© BY TI 
M CARTER <3GG <3*ig8>": GO SUB 6 

7 

66 LET B*="<13*igB::ig8:il:i 
9:i8:>4:13*1g8)": GO SUB 67: PLO 


T 0,168: DRAW 255,0: DRAW 0,-25: 
DRAW -253,0: DRAW 0,25: GO TO 6 

8 

67 LET D=D+1: FOR B=1 TO 31: P 
RINT AT D,0; INK 2;B*(32-B TO )» 

BEEP D/100,B: NEXT ,B: RETURN 

68 INK 0: PRINT AT 5,0;" THIS 
IS NOT JUST THE NORMAL PAC-MA 

N GAME IN WHICH YOU HAVE TO DEF 
EAT THE GHOSTS. M IN THIS N 
EW VERSION THERE ARE NO GHOSTS,E 
ASY YOU MAY THINK BUTYOU CAN'T 
STOP MOVING AND IF YOUHIT ANY OF 
THE RED BRICK WALLS IN THE FOR 
EST MAZE YOU WILL DIE.";"" YOU 
R OBJECT IS TO COLLECT ALL THE G 
REEN BUSHES C"; INK 4;"+"; INK 0 
;"3 AND THE BLUE BONUS PLANTS 
C"; INK 1:"X"; INK 0;"J. ALSO Y 
OU CAN USE A ONE-WAY HIDDEN TUNN 
EL AT THE EDGE OF THE MAZE.“ 

69 FOR A=1 TO 235 STEP 10: BEE 
P .0025,35: BEEP .007,0: POKE MC 
+16,29: POKE MC+7,255-A: LET M=U 
SR MC: PRINT 70;AT 0,0; PAPER 7; 

INK 2;A*< TO 32): LET A*=A*<2 T 
0 >+A*(l>: IF INKEY»<>"" THEN F 
OR Z=0 TO 52.5 STEP 2.5: LET M=U 
SR 3582: BEEP .01,Z: NEXT Z: RET 
URN 


70 NEXT A: GO TO 69 
9000 
© D= © 


E= F-= ?>, G= 


1* 


n= <et> n= ♦ o= 

X p= * 

9010 REM SAVE "FOREST MAZE" LIN 
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n feR 

60 COSUB 9000 
85 LET S-0 
80 CLS 

70 COSU B 8900 _ 

m 90 REM BaanHHHHHB 

100 LET X»1S 
110 LET Y«27 
120 PRINT PIT X,Y; "B" 

130 IP INT IRN0»B>-0 THEN COSUB 
200 

140 IF INKEY0*"1" THEN COSUB 30 


280 FOR F*1 TO 5 
285 NEXT F 

29 0 PRINT RT 16,0; "M", TAB 0; " 

opr .trb d. 

295 RETURN 

300 IF Y«ll THEN RETURN 
310 LET YaY-1 

320 PRINT AT X,Y;"0".AT X,Y4l;" 
330 RETURN 

350 IF Y-27 THEN RETURN 
360 LET Y»Y*1 

370 PRINT AT X,Yi"B";AT X.Y-1.” 
380 RETURN 

400 FOR N-19 TO 13 STEP -1 
410 PRINT AT N,Y;"B" 

420 FOR F»1 TO 5 
430 NEXT F 

440 PRINT AT N,Y; M " 

450 LET Y-Y-l 

460 NEXT N 

470 REM 

480 LET X»13 

490 LET Y =7 

500 PRINT AT X,Y; "B" 


642 NEXT N 

645 IF Y=RB OR YbRB+2 THEN GOTO 
7000 

647 RETURN 

650 IF Ys7 THEN RETURN 
660 LET Y*Y-1 

670 PRINT AT X.Y.'B'iRT X,Y+1. 

680 RETURN _ 

700 IF Y=22 THEN RETURN 
710 LET Y =Y + 1 

720 PRINT AT X,Yi"B";AT X.Y-l. ' 
730 RETURN 

300 FOR N=13 TO 3 STEP -1 
310 PRINT AT N,Y;'0 
820 FOR F*1 TO 3 
330 NEXT F 

840 PRINT AT N,Y;” " 

845 LET Y«Y+1 
850 NEXT " 

860 REM 
870 LET 
830 LET 

890 PRINT AT _ 

900 COSUB 1100 

1000 IF INKEY*= 1" THEN G05UB 12 


OU ARE trapped in the castle of behind them, and watch for the vampire 
death and your only hope of bats and hidden trapdoors. 

.A. survival is to collect a cross from Dracula’s Castle was written for 
the top of the castle. Beware of the the 16K ZX-81 by Robert Campbell of 
closed doors, as Dracula may be hiding Wemyss, Fife. 
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ie§ ^£in?’&t o,a; 

110 PRINT AT l,8i"■ ■ 

120 PRINT AT 2,6;"■ ■ 

200 LET X-20 

210 LET Y«INT (RND430I*1 
220 PRINT AT X,Y;" | " 

300 IF INKEY*■ " 8" AND Y<30 THEN 
LET Y.Y + 1 

310 IF INKEY*."5" AND Y>1 THEN 
LET Y»Y-i 

320 IF INKEY*."0'' THEN GOTO 405 

400 GOTO 220 

405 FOR R«1 TO 18 

407 IF X <20 THEN PRINT AT X.O," 
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1 LET S»0 

FOR F*1 TO 10 

5 PRINT RT RND*11,RND*14., "■" 

6 NEXT F 

? LET fl«1 

8 LET X-5 

« LET Y«5 

10 LET Y *Y + (INKEYt«"6" RND Y<1 

1) - (INKEY*a"7‘* RND Y>0) 

13 PRINT RT Y,X; 

14 LET PaPEEK <a56*PEEK 16399+ 
PEEK 16398) 


16 PRINT Rf 
18 IF P*128 THEN GOSUB 50 
80 LET F«X 

34 IF X<0 OR X >15 THEN GOTO 70 
ae LET X=X+R 
88 PRINT RT Y,Fi" " 

30 GOTO 10 

50 LET S«S+1 

51 PRINT RT Y,X;" ";RT RND*11, 
RND + 14; 

53 LET R*R*-1 

53 LET R$*("<" RND R*-l)+(”>" 
RND R*l) 

56 RETURN 

70 PRINT RT 0,0;"SCORE:S 


THEN GOSUB 50 


1 THEN RETURN s REM LANDED OK 

3077 IF x>0 AND x<31 THEN IF P 
OINT <(x+d>*8,<21-y)*8-l)=l THEN 
PRINT AT y,x s H SO TO 3400 

3080 NEXT is BEEP .02,0 
3099 RETURN 
3420 LET 1=1-1 

3430 FOR i=X TO 40: BEEP .005,10 

3435 PRINT AT y,x; OVER 1; ”A." 

3440 NEXT is SO TO 200 
3502 LET c*»0 

3505 PRINT AT y,x;" “: LET y=y+ 
1 

3515 LET c-c+ll IF 09 THEN GO 
TO 3400 

3520 IF y>20 THEN BEEP .2,-10: 
GO TO 202 

3535 IF POINT (x*8,(21-y>*8-1>= 
1 THEN PRINT AT y,x}”^“s GO TO 
250 

3539 PRINT AT y-l,x;"JV': BEEP . 
15,20-c: PRINT AT y-l,xj" M 

3540 PRINT AT y,x;"C" 

3550 BEEP .15,20-c: GO TO 3504 

3600 PRINT AT 6,8; FLASH 1;" AL 
L LIVES LOST “ 

3610 BEEP 5,-50: RESTORE 6000: G 
O TO 160 

3700 LET t= INT <(256* PEEK 2367 
3+ PEEK 23672)750) 

3703 LET s=s+50: PRINT AT 3,1; 
INK 2; FLASH lj" TIME ";t;"s “ 

: GO SUB 5000: GO SUB 5000 

3705 IF t<100 THEN LET s=s+100- 

t 

3710 FOR y=6 TO 40 STEP 2 
3712 PRINT AT y/2-1,0;" " 

3715 PRINT AT y/2,0; BRIGHT 1; 
INK 2; •’ (1 q8 > " 

3720 BEEPT01,40-y: PAUSE 5 
3730 BEEP .01,39-y: PAUSE 5 
3760 NEXT y 

3770 FOR i=40 TO 10 STEP -5: PAP 


ER It BORDER It CLS : BEEP .005, 
i: PAPER 7: BORDER 7: CLS : BEEP 
.005,i: NEXT i: GO TO 170 
3820 LET 1=1-1 

3830 FOR i=1 TO 40: BEEP .005,10 
3835 PRINT AT y,x-d; OVER 1; 

3840 NEXT it GO TO 200 
5000 IF u>40 THEN LET u=-10 
5010 FOR i=1 TO 3: BEEP .03,u: B 
EEP .03,u+5: BEEP .03,u+10: BEEP 
.03,u+15: NEXT i: LET u=u+B: RE 
TURN 

6030 DATA 4,0,7,4,28,4,5,16,5,6, 

7,5,6,18,7,6,28,4,8,0,6,8,31,1,1 

0,9,7,10,28,4,11,4,9,12,0,3,14,0 

,2,14,17,4,14,30,2,16,0 

6040 DATA 5,16,16,6,16,25,7,18,3 

0,2,20,5,1,20,15,1,20,26,6,21,0, 

8,21,11,8,21,21,3,21,26,6,0,0,0 

6060 DATA 4,0,4,4,15,5,4,22,4,5, 
0,7,5,9,4,5,28,4,7,31,1,9,8,3,9, 
12,4,9,28,4,10,3,3,10,29,3,11,0, 
2,13,0,1,13,7,1,14,7,5,15,0,5,15 

6061 DATA 16,3,15,22,6,17,29,3,1 
9,30,2,20,4,1,20,8,1,20,14,5,20, 
26,1,21,0,12,21,15,3,21,23,9,0,0 
,0 

6080 DATA 4,0,7,5,28,4,6,4,3,6,1 
9,5,7,5,5,7,13,4,7,31,1,9,28,2,9 
,31,1,10,11,5,11,13,2,12,0,4,12, 
7,7,13,9,4,13,29,3,14,0,1,14,9,4 

6081 DATA 15,23,3,15,30,2,16,0,5 
,16,16,6,17,29,3,19,8,2,19,30,2, 
20,5,6,20,14,4,20,23,1,21,0,12,2 
1,18,10,21,29,3,0,0,0 

6090 DATA 4,0,3,5,20,11,6,3,5,6, 
18,8,8,6,4,8,11,6,8,28,2,9,30,2, 
13,27,3,11,31,1,12,0,4,12,6,2,12 
,9,5,13,18,3,13,9 

6091 DATA 2,13,24,3,14,0,1,16,1, 
4,16,16,5,17,22,4,17,29,3,19,6,6 
,19,30,2,20,16,3,21,0,6,21,16,3, 
21,23,6,0,-1,0 


8000 READ j: READ mt READ i 

8004 IF m=-l THEN RESTORE 6000 

8005 IF i=0 THEN PAPER 7: INK 0 
: GO TO 173 

8006 IF m=0 OR m+i=32 THEN PAPE 
R 7: INK 0: GO TO 8008 

8007 PAPER INT < RND *2)+5: INK 
INT ( RND *4) 

8010 FOR f=0 TO i-1 

8020 PRINT AT j,m+f;"E_": NEXT f 

8040 GO TO 8000 


Y OU PLAY the part of a birdman 
with strapped-on wings. Fly 
round the course, being careful 
not to fly off the edge. To achieve this 
you must fly into the blocks that you 
will encounter, as so doing will change 
your direction of flight. Use keys 6 and 
7 to move up and down. 

Birdman was written for the IK 
ZX-81 by Luuk Hilhorst of Holland. 
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REAL KEYBOARD 


it eiwojojd l 


Complete your 
computer 

^(^ KELWOOD SOUND 

Mriationa' POWER BASE 
has all the basic bits' that 
i » Sinclair left off. 

• Fully adjustable sound amplification 

• LOAD/SAVE switch • Angled stand 

ON-OFF re-set switch 

Ml * 


• Ooesnof^<<C ^ 

lake up any ex/ra^C\T / \ J 

space • All wires • " 

included • Saves wear and ' ' 

tear on connections • Gives out r 

distinct click with each key depression • Amplifies \> 

all sound on program and on cassette • Does not l 

need batteries • Does not interfere with inside of \" 

Spectrum or any other add-ons • No soldering 4 

required, simply plugs in REF SPBI £19.90 

Standard Power Base without sound 

SPECTRUM REF PBSI C13.50 ZX81 REF PBZXI £13 


Six versions ol this indispensable unit complete your 
computer AH have SAVE/LOAD and ON/OFF switching 
and a housing for the transformer Compatible with 
interface one. Ideal for use with cased keyboards 
Ret BPt - Fully variable sound amp-3 x 13 amp sockets 

switch and neon indicator-cable and plug. £27.50 

Rel BP2 - as BPl but no sockets, cable and plugs Has 
room to fix your own Duraptug sockets £19.50 

Ref BP3-as BPl but no sound £21.50 

Ref 8P4 - as BPl but no sound or sockets £13.05 
Ret BP5 - ZX81 version Inc sockets, mains switch 


MICROSTATION 

17square tray tor above plus computer and tape 
Ref MS £7.50 


CREDIT CARD 
HOTLINE TEL: 


QUANTITY 


(0709)63242 


TOTAL I 


Items under £101 


Access K Items over £10 plus 95pP& 

1 Barclaycard No-.- All prices include VAT 

K EL WOOD COMPUTING Downs Row, Moorgate, Rotherham 
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— LIMITS— 
WHAT LIMITS? 


Tired of all this talk about going to the limits, 
pure addiction, mind blowing graphics etc 
etc? Well we're not surprised. Ultimately of 
course the reason you buy Design. Design 
Software is its:quality- and no amount of 
talking will convince you of that, you just 
have to play the games to find out. 


NEW RELEASES. 

The latest additions to our range 
are:-DARK STAR'. 

(for the 48K Spectrum). 

By Simon Brattel. 

HALLS OF THE THINGS' 

(for the CBM 64). 

By Graham Stafford. 

Just listen to what the authors say - 
Simon. "HATE IT" 

Graham. "GAME WHAT GAME" 
Rainbow Software were 
unavailable for comment... 

WHO ARE RAINBOW SOFTWARE 
ANYWAY? 


release supply: 

. Spectrum48K HALLSOFTHETHINGS. 
I INVASION OF THE BODY SNATCHAS. 

, ROMMELS REVENGE. 

I THE DUNGEON MASTER. 

, DARK STAR. 

I Any Spectrum. ITS THE WOOLUF. 

, CBM64 HALLSOFTHETHINGS. 

I ZEUS 64. 

■ Dragon 32/64 

I Tandy Colour 3ZK. TUBE WAY ARMY. 


□ £7.S0 

□ £6.50 

□ £6.50 

□ £7.50 

□ £7.50 

□ £6.50 

□ £8.50 

□ £9.95 

□ £7.50 


| NAME_ 

| ADDRESS 


I enclose cheque/p.o. for.P&P included. 

| Overseas orders, please add £ 1.50 per item. 


Sel ected titles availab le from:- 

hmv 

WOOLWORTH 


spjelGtrpjTi 


other large department stores and all good 
major software retailers, alternatively, send 
thecouponto: - 



CRYSTAL COM PUTING. 2 ASHTON WAY. 

EAST HERRINGTON. SUNDERLAND. SR33RX. 

TRADE ENQUIRIES WELCOME:- 
Tfel: 061-20S 6603 

DESIGN DESIGN IS THE TRADING NAMEOFCHANDREX LTD. 
TTie name Crystal is used under licence. 































The CURRAH /xSPEECH is ready to talk immediately on 
power-up. has an infinite vocabulary and outputs speech 
and ZX Spectrum sound through your TV speaker. There 
is no software to load with /xSPEECH — sophisticated 
Gate Array technology means you can just plug in and 
start constructing words and sentences like this: 

LET SS = "sp|ee)k (nn)(oo) (ee)vU" will say "speak no 
evil"! Further commands control the “voicing" of keys as 
they are pressed, and an intonation facility allows you to 
add expression to the speech. 

/xSPEECH is fully compatible with ZX Interface I and 
may be used with the CURRAH /xSLOT Expandable 
Motherboard, allowing easy expansion of your ZX 
system. ^SPEECH and /xSLOT will also be compatible 
with the CURRAH /xSOURCE unit when it arrives later 
this year, allowing you to write Assembler and FORTH 
statements directly into your BASIC programsl 
Top selling games like ULTIMATE'S Lunar Jetman 
feature /xSPEECH voice output — watch out for other 
titles from Bug-Byte. CDS, Ocean. Quicksilva and PSS. 


/xSPEECH is available from ff COMET. W.H. SMITH. 
WOOLWORTHS. GREENS. • BOOTS. JOHN MENZIES. 
SPECTRUM STORES and good dealers nationwide — 
or use the form to order the CURRAH /x SPEECH — 
winner of the CTA 'Product of the Year' award 1984 


mg 

5H 

R 

a 

1 


To: MlcroSpeeth Offer. P.O. Box 1. Gateshead, Tyne & Wear. NEB 1AJ 

Please Supply MkroSpeech umt(s) ai 129.95 each ind. VAT & P & P 

MlcroSlot unit(s) a< £14.95 each incl VAT & P & P 

Name Ipteaie print! ..——--- 

Address (please pnnt| ........ 

.... Postcode- J 

l enclose a cheque/PO payable to "MicroSpeech Offer' value £. 

or debit my Access/BatclayCard No ] I I I I I I II I I I I I I I 1 


Cardholder Signature .—...—-.— 

Credit Card Hotline 091 - 482 4683 PSe.ee days fcrdriwy OCmutdlKoriy 

M hi hi See us at the PCW Show Stand 329 H M am 











